Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -603,20 +603,22 @@
 ;;
 
 
 (define (common:readonly-watchdog dbstruct)
   (thread-sleep! 0.05) ;; delay for startup
-
+  (BB> "common:readonly-watchdog entered.")
   ;; sync megatest.db to /tmp/.../megatst.db
   (let ((sync-cool-off-duration   3)
         (golden-mtdb     (dbr:dbstruct-mtdb dbstruct))
         (golden-mtpath   (db:dbdat-get-path mtdb))
         (tmp-mtdb        (dbr:dbstruct-tmpdb dbstruct))
         (tmp-mtpath      (db:dbdat-get-path mtdb)))
     (debug:print-info 0 *default-log-port* "Read-only periodic sync thread started.")
     (let loop ((last-sync-time 0))
+      (BB> "loop top tmp-mtpath="tmp-mtpath" golden-mtpath="golden-mtpath)
       (let* ((duration-since-last-sync (- (current-seconds) last-sync-time)))
+        (BB> "duration-since-last-sync="duration-since-last-sync)
         (if (and (not *time-to-exit*)
                  (< duration-since-last-sync sync-cool-off-duration))
             (thread-sleep! (- sync-cool-off-duration duration-since-last-sync)))
         (if (not *time-to-exit*)
             (let ((golden-mtdb-mtime (file-modification-time golden-mtpath))
@@ -696,10 +698,11 @@
 	    (if (common:low-noise-print 30)
 		(debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*" pid="(current-process-id)" this-wd-num="this-wd-num)))))))
 
 ;; TODO: for multiple areas, we will have multiple watchdogs; and multiple threads to manage
 (define (common:watchdog)
+  (BB> "common:watchdog entered.")
   (let ((dbstruct (db:setup)))
     (if (dbr:dbstruct-read-only dbstruct)
         (common:readonly-watchdog dbstruct)
         (common:writable-watchdog dbstruct))))
 

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -112,16 +112,16 @@
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
 ;; create a watch dog to move changes from lt/.db/*.db to megatest.db
 ;;
-(if (file-write-access? (conc *toppath* "/megatest.db"))
+;;;(if (file-write-access? (conc *toppath* "/megatest.db"))
     (thread-start! (make-thread common:watchdog "Watchdog thread"))
     (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))))
+	  (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)