@@ -95,11 +95,11 @@
 ;;       (set! *runremote* (string-split (args:get-arg "-host" ":")))
 ;;       (client:launch))
 ;;     (if (not (args:get-arg "-use-server"))
 ;; 	(set! *transport-type* 'fs) ;; force fs access
 ;; 	(client:launch)))
-	  (client:launch))
+;;	  (client:launch))
 
 ;; HACK ALERT: this is a hack, please fix.
 (define *read-only* (not (file-read-access? (conc *toppath* "/megatest.db"))))
 ;; (client:setup *db*)