@@ -59,10 +59,11 @@
 			"-test"
 			"-debug"
 			"-host" 
 			) 
 		 (list  "-h"
+			"-use-server"
 			"-guimonitor"
 			"-main"
 			"-v"
 			"-q"
 		       )
@@ -83,11 +84,13 @@
 
 (if (args:get-arg "-host")
     (begin
       (set! *runremote* (string-split (args:get-arg "-host" ":")))
       (client:launch))
-    (client:launch))
+    (if (not (args:get-arg "-use-server"))
+	(set! *transport-type* 'fs) ;; force fs access
+	(client:launch)))
 
 ;; HACK ALERT: this is a hack, please fix.
 (define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db"))))
 ;; (client:setup *db*)