@@ -71,11 +71,11 @@
   (if *transport-type*
       *transport-type*
       (let ((ttype (string->symbol
 		    (or (args:get-arg "-transport")
 			(configf:lookup *configdat* "server" "transport")
-			"rpc"))))
+			*DEFAULT-TRANSPORT*))))
 	(set! *transport-type* ttype)
 	ttype)))
 	    
 ;; Generate a unique signature for this server
 (define (server:mk-signature)