Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1229,11 +1229,11 @@
                            (mtconf    (car mtconfdat))
                            (script    (configf:lookup mtconf "listener" "script")))
                            (print "Listening on port " portnum " for messages")
                            (let loop ((instr (nn-recv rep)))
                                (print "received " instr ", running \"" script " " instr "\"")
-                               (system (conc script " " instr))
+                               (system (conc script " '" instr "'"))
                                (nn-send rep "ok")
                                (loop (nn-recv rep))))
                      (print "ERROR: Port " portnum " already in use. Try another port")))))))
       
       )) ;; the end