Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1445,11 +1445,13 @@
 															   (debug:print 0 *default-log-port* ctime " received " instr )
 																;(nn-send rep "ok")
                                 (if (not (equal? instr "ping"))
                                   (begin
                                    (debug:print 0 *default-log-port* ctime " running \"" script " " instr "\"")
-                                    (system (conc script " '" instr "'")))))))
+                                    ;(system (conc script " '" instr "'"))
+                                      (process-run script (list (conc "'" instr "'")))  
+                                     (debug:print 0 *default-log-port* ctime " done" ))))))
                            (loop (nn-recv rep))))
 		       (print "ERROR: Port " portnum " already in use. Try another port")))))))
       ((gather) ;; gather all area db's into /tmp/$USER_megatest/alldbs
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
               (mtconf    (car mtconfdat))