Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -3072,8 +3072,7 @@
                 (msg     (conc user":"host":"start":"
                                toppath":"payload-serialized))
                 (s (udp-open-socket)))
            (udp-bind! s #f 0)
            (udp-connect! s serverhost serverport)
-            (print msg)
-            (print (udp-send s msg))
-            (udp-close-socket s))))))
+           (udp-send s msg)
+           (udp-close-socket s))))))