Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -3091,11 +3091,11 @@
               (toppath (or *toppath* "/dev/null"))
               (payload-serialized
                (base64:base64-encode
                 (z3:encode-buffer
                  (with-output-to-string (lambda () (pp payload))))))
-              (msg     (conc user":"host":"start":"(current-process-id)":"
+              (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)
   (when (and (eq? *common:telemetry-log-state* 'open) *common:telemetry-log-socket*)