Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -3089,11 +3089,11 @@
          ;;(define *common:telemetry-log-state* 'broken-or-no-server-preclose)
          ;;(common:telemetry-log-close)
          (define *common:telemetry-log-state* 'broken-or-no-server)
          (set! *common:telemetry-log-socket* #f)
          )
-       (if (and *common:telemetry-log-socket* event)
+       (if (and *common:telemetry-log-socket* event) ;; TODO - filter on event against telemetry.want-events
            (let* ((user (or (get-environment-variable "USER") "unknown"))
                   (host (or (get-environment-variable "HOST") "unknown"))
                   (start (conc "[megatest "event"]"))
                   (toppath (or *toppath* "/dev/null"))
                   (payload-serialized