@@ -293,15 +293,27 @@
                (mtdb         (db:open-megatest-db))
                (mtdbpath     (db:dbdat-get-path mtdb))
                (tmpdb        (db:open-megatest-db path: dbpath)) ;; lock-create-open dbpath db:initialize-main-db))
                (refndb       (db:open-megatest-db path: dbpath name: "megatest_ref.db"))
                (write-access (file-write-access? mtdbpath))
-	       ;(mtdbmodtime  (if mtdbexists (common:lazy-sqlite-db-modification-time mtdbpath)   #f)) ; moving this before db:open-megatest-db is called. if wal mode is on -WAL and -shm file get created with causing the  tmpdbmodtime timestamp always greater than mtdbmodtime
-	       ;(tmpdbmodtime (if dbfexists  (common:lazy-sqlite-db-modification-time tmpdbfname) #f)) 
-					;if wal mode is on -WAL and -shm file get created when db:open-megatest-db is called. modtimedelta will always be < 10 so db in tmp not get synced
-          ;(tmpdbmodtime (if dbfexists (db:get-last-update-time (car tmpdb)) #f))    
-          ;(fmt (file-modification-time tmpdbfname))
+	       
+	       ;;(mtdbmodtime (if mtdbexists
+	       ;;(common:lazy-sqlite-db-modification-time mtdbpath)
+	       ;;#f)) ; moving this before db:open-megatest-db is
+	       ;;called. if wal mode is on -WAL and -shm file get
+	       ;;created with causing the tmpdbmodtime timestamp
+	       ;;always greater than mtdbmodtime (tmpdbmodtime (if
+	       ;;dbfexists (common:lazy-sqlite-db-modification-time
+	       ;;tmpdbfname) #f))
+
+	       ;;if wal mode is on -WAL and -shm file get created when
+	       ;;db:open-megatest-db is called. modtimedelta will
+	       ;;always be < 10 so db in tmp not get synced
+	       ;;(tmpdbmodtime (if dbfexists (db:get-last-update-time
+	       ;;(car tmpdb)) #f)) (fmt (file-modification-time
+	       ;;tmpdbfname))
+	       
 	       (modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
 
 	  (handle-exceptions
 	   exn
 	   (let ((call-chain (get-call-chain))
@@ -310,19 +322,22 @@
 	     (set! write-access #f)) ;; if we failed to drop the triggers then we probably don't have write access
 	   (when write-access
 		 (sqlite3:execute (car mtdb) "drop trigger if exists update_tests_trigger")
 		 (sqlite3:execute (car mtdb) "drop trigger if exists update_runs_trigger")))
           
-         ;(print "mtdbmodtime " mtdbmodtime " tmpdbmodtime " tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath* "/megatest.db"))
-	        ;;(debug:print-info 13 *default-log-port* "db:open-db>> mtdbpath="mtdbpath" mtdbexists="mtdbexists" and write-access="write-access)
+          ;;(print "mtdbmodtime " mtdbmodtime " tmpdbmodtime "
+          ;;tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath*
+          ;;"/megatest.db")) (debug:print-info 13 *default-log-port*
+          ;;"db:open-db>> mtdbpath="mtdbpath" mtdbexists="mtdbexists"
+          ;;and write-access="write-access)
           (if (and dbexists (not write-access))
               (begin
                 (set! *db-write-access* #f)
                 (dbr:dbstruct-read-only-set! dbstruct #t)))
           (dbr:dbstruct-mtdb-set!   dbstruct mtdb)
           (dbr:dbstruct-tmpdb-set!  dbstruct tmpdb)
-          (dbr:dbstruct-dbstack-set! dbstruct (make-stack)) ;; BB: why a stack?  Why would the number of db's be indeterminate?  Is this a legacy of 1.db 2.db .. ?
+          (dbr:dbstruct-dbstack-set! dbstruct (make-stack))   ;; why a stack?
           (stack-push! (dbr:dbstruct-dbstack dbstruct) tmpdb) ;; olddb is already a (cons db path)
           (dbr:dbstruct-refndb-set! dbstruct refndb)
           ;;	    (mutex-unlock! *rundb-mutex*)
           (if (and  (or (not dbfexists)
 			(and modtimedelta
@@ -329,31 +344,27 @@
 			     (> modtimedelta max-stale-tmp))) ;; if db in tmp is over ten seconds older than the file in MTRA then do a sync back
 		    do-sync)
 	      (begin
 		(debug:print 1 *default-log-port* "filling db " (db:dbdat-get-path tmpdb) " with data \n    from " (db:dbdat-get-path mtdb) " mod time delta: " modtimedelta)
 		(db:sync-tables (db:sync-all-tables-list dbstruct) #f mtdb refndb tmpdb)
-    ;touch tmp db to avoid wal mode wierdness  
-     (set! (file-modification-time tmpdbfname) (current-seconds))  
+					;touch tmp db to avoid wal mode wierdness  
+		(set! (file-modification-time tmpdbfname) (current-seconds))  
                 (debug:print-info 13 *default-log-port* "db:sync-all-tables-list done.")
                 )
 	      (debug:print 4 *default-log-port* " db, " (db:dbdat-get-path tmpdb) " already exists or fresh enough, not propogating data from\n     " (db:dbdat-get-path mtdb) " mod time delta: " modtimedelta) )
 	  ;; (db:multi-db-sync dbstruct 'old2new))  ;; migrate data from megatest.db automatically
           tmpdb))))
 
 
 (define (db:get-last-update-time db)
-;	(db:with-db
-;   dbstruct #f #f 
-;    (lambda (db)
-			(let ((last-update-time #f))
-      	(sqlite3:for-each-row 
-          (lambda (lup) 
-             (set! last-update-time lup))     
-          db    
-					"select max(lup) from ( select max(last_update) as lup  from tests union select max(last_update) as lup from runs);")
-        last-update-time))
-;))
+  (let ((last-update-time #f))
+    (sqlite3:for-each-row 
+     (lambda (lup) 
+       (set! last-update-time lup))     
+     db    
+     "select max(lup) from ( select max(last_update) as lup  from tests union select max(last_update) as lup from runs);")
+    last-update-time))
 
 ;; Make the dbstruct, setup up auxillary db's and call for main db at least once
 ;;
 ;; called in http-transport and replicated in rmt.scm for *local* access. 
 ;;