@@ -934,11 +934,11 @@
       (case (rmt:transport-mode)
 	((http)(http-transport:launch))
 	((tcp)
 	 (debug:print 0 *default-log-port* "INFO: Running using tcp method.")
 	 (if run-id
-	     (tt:start-server tl (dbmod:run-id->dbfname run-id) api:dispatch-request)
+	     (tt:start-server tl run-id (dbmod:run-id->dbfname run-id) api:dispatch-request)
 	     (begin
 	       (debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -run-id is required.")
 	       (exit 1))))
 	(else (debug:print 0 *default-log-port* "ERROR: rmt:transport-mode value not recognised "(rmt:transport-mode))))
       (set! *didsomething* #t)))