Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -163,11 +163,11 @@
             (params            (vector-ref dat 1))
             (start-t           (current-milliseconds))
             (readonly-mode     (dbr:dbstruct-read-only dbstruct))
             (readonly-command  (member cmd api:read-only-queries))
             (writecmd-in-readonly-mode (and readonly-mode (not readonly-command)))
-            (foo               (begin
+            #;(foo               (begin
                                  (common:telemetry-log (conc "api-in:"(->string cmd))
                                                        payload: `((params . ,params)))
                                  
                                  #t))
             (res    
@@ -359,16 +359,16 @@
 			 start-t)))
 	 (hash-table-set! *db-api-call-time* cmd
 			  (cons delta-t (hash-table-ref/default *db-api-call-time* cmd '()))))
        (if writecmd-in-readonly-mode
            (begin
-             (common:telemetry-log (conc "api-out:"(->string cmd))
+             #;(common:telemetry-log (conc "api-out:"(->string cmd))
                                    payload: `((params . ,params)
                                               (ok-res . #t)))
 	     (vector #f res))
            (begin
-             (common:telemetry-log (conc "api-out:"(->string cmd))
+             #;(common:telemetry-log (conc "api-out:"(->string cmd))
                                    payload: `((params . ,params)
                                               (ok-res . #f)))
              (vector #t res))))))))
 
 ;; http-server  send-response

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -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)

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -21,11 +21,11 @@
 ;;======================================================================
 ;; Tests
 ;;======================================================================
 
 (declare (unit tests))
-(declare (uses lock-queue))
+;;(declare (uses lock-queue))
 (declare (uses db))
 (declare (uses tdb))
 (declare (uses common))
 ;; (declare (uses dcommon)) ;; needed for the steps processing
 (declare (uses items))