@@ -922,12 +922,14 @@
 
 ;; Server? Start up here.
 ;;
 (if (args:get-arg "-server")
     (let ((tl        (launch:setup)))
-      ;; (server:launch 0 'http)
-      (http-transport:launch)
+      (case (rmt:transport-mode)
+	((http)(http-transport:launch))
+	((tcp) (tt:start-server tl))
+	(else (debug:print 0 "ERROR: rmt:transport-mode value not recognised "(rmt:transport-mode))))
       (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.
 ;;