Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -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

Index: launchmod.scm
==================================================================
--- launchmod.scm
+++ launchmod.scm
@@ -41,12 +41,10 @@
 (declare (uses subrunmod))
 (declare (uses testsmod))
 (declare (uses runsmod))
 (declare (uses fsmod))
 
-(use srfi-69)
-
 (module launchmod
 	(
 	 launch:load-logpro-dat
 	 launch:recover-test
 	 launch:execute

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -83,9 +83,20 @@
 (declare (uses mtbody))
 
 (import csi)
 ;; fake out readline usage of toplevel-command
 (set! toplevel-command (lambda (a b) #f))
+
+;; required for chicken 4
+(use srfi-69
+     call-with-environment-variables
+     csv
+     regex
+     regex-case
+     sparse-vectors
+     format
+     fmt
+     )
 
 (import mtbody)
 
 (main)