Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -285,13 +285,13 @@
 ;; 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 (args:get-arg "-transport" "http")))
       (debug:print 2 "Launching server using transport " transport)
-      (server:launch transport)))
+      (server:launch (string->symbol transport))))
 
 (if (args:get-arg "-list-servers")
 	;; (args:get-arg "-kill-server"))
     (let ((tl (setup-for-run)))
       (if tl 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -131,10 +131,13 @@
     ((fs) result)
     ((http)(db:obj->string (vector success/fail query-sig result)))
     ((zmq)
      (send-message pubsock target send-more: #t)
      (send-message pubsock (db:obj->string (vector success/fail query-sig result))))
+    (else 
+     (debug:print 0 "ERROR: unrecognised transport type: " *transport-type*)
+     result)))
 
 ;;======================================================================
 ;; C L I E N T S
 ;;======================================================================