@@ -69,11 +69,11 @@
 (define-inline (zmqsock:set-pull! dat s)(vector-set! dat s 0))
 
 (define (zmq-transport:run hostn)
   (debug:print 2 "Attempting to start the server ...")
   (if (not *toppath*)
-      (if (not (setup-for-run))
+      (if (not (launch:setup-for-run))
 	  (begin
 	    (debug:print 0 "ERROR: cannot find megatest.config, cannot start server, exiting")
 	    (exit))))
   (let* ((db              (open-db)) ;; here we *do not* want to be opening and closing the db
 	 (zmq-sdat1       #f)
@@ -361,11 +361,11 @@
               (exit)))))))
 
 ;; all routes though here end in exit ...
 (define (zmq-transport:launch)
   (if (not *toppath*)
-      (if (not (setup-for-run))
+      (if (not (launch:setup-for-run))
 	  (begin
 	    (debug:print 0 "ERROR: cannot find megatest.config, exiting")
 	    (exit))))
   (debug:print-info 2 "Starting zmq server")
   (if *toppath*