@@ -1141,11 +1141,11 @@
      (if (args:get-arg "-server")
 	 (if  (not (args:get-arg "-db"))
 	      (debug:print 0 *default-log-port* "ERROR: -db required to start server")
 	      (let ((tl        (launch:setup))
 		    (dbname    (args:get-arg "-db"))) ;; transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
-		(server:launch dbname)
+		(rmt:launch dbname)
 		(set! *didsomething* #t))))
 	 
      ;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
      ;; a specific Megatest area. Detail are being hashed out and this may change.
      ;;