@@ -116,14 +116,14 @@
 ;;
 ;;;(if (file-write-access? (conc *toppath* "/megatest.db"))
 ;;(debug:print-info 13 *default-log-port* "Before common:watchdog spawn")
 (thread-start! (make-thread common:watchdog "Watchdog thread"))
 ;;(debug:print-info 13 *default-log-port* "After common:watchdog spawn")
-(if (not (args:get-arg "-use-db-cache"))
-    (begin
-      (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
-      (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
+;; (if (not (args:get-arg "-use-db-cache"))
+;;     (begin
+;;       (debug:print-info 0 *default-log-port* "Forcing db-cache mode due to read-only access to megatest.db")
+;;       (hash-table-set! args:arg-hash "-use-db-cache" #t)));;;)
 
 ;; data common to all tabs goes here
 ;;
 (defstruct dboard:commondat
   ((curr-tab-num 0) : number)