@@ -23,10 +23,12 @@
 (define (toplevel-command . a) #f)
 
 (declare (uses common))
 ;; (declare (uses megatest-version))
 (declare (uses margs))
+(declare (uses commonmod))
+(declare (uses commonmod.import))
 (declare (uses runs))
 (declare (uses launch))
 (declare (uses server))
 (declare (uses client))
 (declare (uses tests))
@@ -43,14 +45,13 @@
 (declare (uses env))
 (declare (uses diff-report))
 (declare (uses db))
 (declare (uses dbmod))
 (declare (uses dbmod.import))
-(declare (uses commonmod))
-(declare (uses commonmod.import))
 (declare (uses dbfile))
 (declare (uses dbfile.import))
+(declare (uses tcp-transport))
 ;; (declare (uses debugprint))
 ;; (declare (uses debugprint.import))
 ;; (declare (uses mtargs))
 ;; (declare (uses mtargs.import))
 
@@ -57,11 +58,12 @@
 ;; (declare (uses ftail))
 ;; (import ftail)
 
 (import dbmod
 	commonmod
-	dbfile)
+	dbfile
+	tcp-transport)
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
 (include "key_records.scm")
@@ -927,10 +929,11 @@
     (let* ((run-id (args:get-arg-number "-run-id"))
 	   (tl        (launch:setup)))
       (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))
 	     (begin
 	       (debug:print 0 *default-log-port* "ERROR: transport mode is tcp - -run-id is required.")
 	       (exit 1))))