@@ -303,11 +303,16 @@
 ;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
 ;;   we start the server if not running else start the client thread
 ;;======================================================================
 
 (if (args:get-arg "-server")
-    (let ((transport (args:get-arg "-transport" "http")))
+
+    ;; Server? Start up here.
+    ;;
+    (let ((tl        (setup-for-run))
+	  (transport (or (configf:lookup *configdat* "setup" "transport")
+			 (args:get-arg "-transport" "http"))))
       (debug:print 2 "Launching server using transport " transport)
       (server:launch (string->symbol transport)))
 
     ;; Not a server? This section will decide how to communicate
     ;;
@@ -430,11 +435,12 @@
        (else
 	(debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
       (set! *didsomething* #t)))
 
 (if (args:get-arg "-show-config")
-    (let ((data *configdat*)) ;; (read-config "megatest.config" #f #t)))
+    (let ((tl   (setup-for-run))
+	  (data *configdat*)) ;; (read-config "megatest.config" #f #t)))
       ;; keep this one local
       (cond 
        ((not (args:get-arg "-dumpmode"))
 	(pp (hash-table->alist data)))
        ((string=? (args:get-arg "-dumpmode") "json")