@@ -268,11 +268,12 @@
 ;; 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")))
+    (let ((transport (or "zmq" ;; (config-lookup *configdat* "server" "transport")
+			 (args:get-arg "-transport" "http"))))
       (debug:print 2 "Launching server using transport " transport)
       (server:launch (string->symbol transport))))
 
 (if (args:get-arg "-list-servers")
 	;; (args:get-arg "-kill-server"))