@@ -27,10 +27,13 @@
 (declare (uses mtargs))
 (declare (uses mtmod))
 
 (module dbmod
 	(
+	 ;; for debug, can be commented out
+	 dbmod:safely-open-db
+	 
 	 dbmod:db-to-db-sync
 	 
 	 db:test-get-event_time
 	 db:test-get-item-path
 	 db:test-get-testname
@@ -3204,11 +3207,13 @@
      #t
      (lambda (dbdat db)
        (delproc db)))
     (if (and (file-exists? mtdbfile)
 	     (file-write-access? mtdbfile))
-	(let* ((db (sqlite3:open-database mtdbfile)))
+	(let* ((db (sqlite3:open-database mtdbfile))
+	       (handler (sqlite3:make-busy-timeout 136000)))
+	  (sqlite3:set-busy-handler! db handler)
 	  (delproc db)
 	  (sqlite3:finalize! db)))))
 
 ;; ;; speed up for common cases with a little logic
 ;; ;; NB// Ultimately this will be deprecated in deference to mt:test-set-state-status-by-id