@@ -343,11 +343,11 @@
 						      #f))
 			 (chosen-transport        (string->symbol (or transport-from-cmdln
 								      transport-from-cmdinfo
 								      transport-from-config
 								      "fs"))))
-		    (debug:print 0 "chosen-transport: " chosen-transport " have; config=" transport-from-config ", cmdln=" transport-from-cmdln ", cmdinfo=" transport-from-cmdinfo)
+		    (debug:print 2 "chosen-transport: " chosen-transport " have; config=" transport-from-config ", cmdln=" transport-from-cmdln ", cmdinfo=" transport-from-cmdinfo)
 		    (case chosen-transport
 		      ((http)
 		       (set! *transport-type 'http)
 		       (server:ensure-running)
 		       (client:launch))