@@ -3546,14 +3546,14 @@
                #t) ;; just ignore it, it might have died in the meantime so joining it will throw an exception
              (thread-join! thread))
            )))
    (hash-table-keys *common:thread-punchlist*)))
 
-(define *common:telemetry-log-state* 'startup)
-(define *common:telemetry-log-socket* #f)
+#;(define *common:telemetry-log-state* 'startup)
+#;(define *common:telemetry-log-socket* #f)
 
-(define (common:telemetry-log-open)
+#;(define (common:telemetry-log-open)
   (if (eq? *common:telemetry-log-state* 'startup)
       (let* ((serverhost (configf:lookup *configdat* "telemetry" "host"))
              (serverport (configf:lookup-number *configdat* "telemetry" "port"))
              (user (or (get-environment-variable "USER") "unknown"))
              (host (or (get-environment-variable "HOST") "unknown")))
@@ -3569,11 +3569,11 @@
                      (udp-connect! s serverhost serverport)
                      (set! *common:telemetry-log-socket* s)
                      'open)
                    'not-needed))))))
   
-(define (common:telemetry-log event #!key (payload '()))
+#;(define (common:telemetry-log event #!key (payload '()))
   (if (eq? *common:telemetry-log-state* 'startup)
       (common:telemetry-log-open))
 
   (if (eq? 'open *common:telemetry-log-state*)
       (handle-exceptions
@@ -3596,11 +3596,11 @@
                      (with-output-to-string (lambda () (pp payload))))))
                   (msg     (conc user":"host":"start":"(current-process-id)":"(car (argv))":"
                                  toppath":"payload-serialized)))
              (udp-send *common:telemetry-log-socket* msg))))))
   
-(define (common:telemetry-log-close)
+#;(define (common:telemetry-log-close)
   (when (or (member *common:telemetry-log-state* '(broken-or-no-server-preclose open)) *common:telemetry-log-socket*)
     (handle-exceptions
      exn
      (begin
        (define *common:telemetry-log-state* 'closed-fail)