choose-dir

private/web-wire.rkt

@@ -222,7 +222,10 @@
              (payload* (substring evt (string-length (list-ref m 0))))
              (payload (if (string=? payload* "")
                           (make-hash)
-                          (with-input-from-string (substring payload* 1) read-json)))
+                          (begin
+                            (write payload*)(newline)
+                            (with-input-from-string (substring payload* 1) read-json)))
+                      )
             )
         (if (eq? evt-handler #f)
             (ww-error (format "process-event: no event handler to handle event ~a" evt))