Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -115,11 +115,21 @@
 (define *db-access-mutex*     (make-mutex))
 (define *db-cache-path*       #f)
 
 ;; SERVER
 (define *my-client-signature* #f)
-(define *transport-type*    'http)             ;; override with [server] transport http|rpc|nmsg
+(define *transport-type*  #f)             ;; override with [server] transport http|rpc|nmsg
+
+(define (common:set-transport-type)
+  (set! *transport-type*
+        (string->symbol
+         (or
+          (args:get-arg "-transport")
+          (configf:lookup *configdat* "server" "transport")
+          "http")))
+  *transport-type*)
+  
 (define *runremote*         #f)                ;; if set up for server communication this will hold <host port>
 (define *max-cache-size*    0)
 (define *logged-in-clients* (make-hash-table))
 (define *server-id*         #f)
 (define *server-info*       #f)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -816,10 +816,11 @@
 	      (set! *configstatus* 'partial))
 	    (begin
 	      (debug:print-error 0 *default-log-port* "No " mtconfig " file found. Giving up.")
 	      (exit 2))))))
     ;; additional house keeping
+    (common:set-transport-type)
     (let* ((linktree (or (getenv "MT_LINKTREE")
 			 (if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))))
       (if linktree
 	  (begin
 	    (if (not (file-exists? linktree))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -327,10 +327,11 @@
 		 args:arg-hash
 		 0))
 
 ;; Add args that use remargs here
 ;;
+
 (if (and (not (null? remargs))
 	 (not (or
 	       (args:get-arg "-runstep")
 	       (args:get-arg "-envcap")
 	       (args:get-arg "-envdelta")
@@ -699,13 +700,11 @@
     ;; Server? Start up here.
     ;;
     (let ((tl        (launch:setup))
 	;; (run-id    (and (args:get-arg "-run-id")
 	;; 		  (string->number (args:get-arg "-run-id"))))
-          (transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
-      ;; (if run-id
-      ;;   (begin
+          (transport-type *transport-type*  ))
       (server:launch 0 transport-type)
       (set! *didsomething* #t)))
 ;;     ;; (debug:print-error 0 *default-log-port* "server requires run-id be specified with -run-id")))
 ;; 
 ;;     ;; Not a server? This section will decide how to communicate

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -157,11 +157,12 @@
 
 # force use of server always
 # required yes
 
 # Use http instead of direct filesystem access
-transport http
+transport rpc
+# transport http
 # transport fs
 # transport nmsg
 
 synchronous 0