@@ -607,12 +607,16 @@
 				  environ-patt: "env-override"
 				  given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
 				  pathenvvar: "MT_RUN_AREA_HOME"))))
 	(set! *configdat*  (if (car *configinfo*)(car *configinfo*) #f))
 	(set! *toppath*    (if (car *configinfo*)(cadr *configinfo*) #f))
-	(let* ((tmptransport (configf:lookup *configdat* "server" "transport"))
-	       (transport    (if tmptransport (string->symbol tmptransport) 'http)))
+	(let* ((cmdlinetransport (args:get-arg "-transport"))
+               (tmptransport (configf:lookup *configdat* "server" "transport"))
+	       (transport
+                (if cmdlinetransport
+                    (string->symbol cmdlinetransport)
+                    (if tmptransport (string->symbol tmptransport) 'http))))
 	  (if (member transport '(http rpc nmsg))
 	      (set! *transport-type* transport)
 	      (begin
 		(debug:print 0 "ERROR: Unrecognised transport " transport)
 		(exit))))