Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -384,11 +384,11 @@
 			    pathenvvar: "MT_RUN_AREA_HOME"))
 	(set! *configdat*  (if (car *configinfo*)(car *configinfo*) #f))
 	(set! *toppath*    (if (car *configinfo*)(cadr *configinfo*) #f))
 	(if *toppath*
 	    (setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated
-	    (debug:print 0 "ERROR: failed to find the top path to your run setup."))))
+	    (debug:print 0 "ERROR: failed to find the top path to your Megatest area."))))
   *toppath*)
 
 (define (get-best-disk confdat)
   (let* ((disks    (hash-table-ref/default confdat "disks" #f))
 	 (best     #f)

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -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")

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -19,10 +19,14 @@
 
 [setup]
 # Set launchwait to yes to use the old launch run code that waits for the launch process to return before 
 # proceeding.
 # launchwait yes
+
+# Use http instead of direct filesystem access
+transport http
+
 
 # If set to "default" the old code is used. Otherwise defaults to 200 or uses
 # numeric value given.
 #
 runqueue 20