@@ -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)