Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -278,12 +278,12 @@
 
 ;; close all opened run-id dbs
 (define (db:close-all dbstruct)
   ;; finalize main.db
   (db:sync-touched dbstruct 0 force-sync: #t)
-  (common:db-block-further-queries)
-  (mutex-lock! *db-sync-mutex*) ;; with this perhaps it isn't necessary to use the block-further-queries mechanism?
+  ;;(common:db-block-further-queries)
+  ;; (mutex-lock! *db-sync-mutex*) ;; with this perhaps it isn't necessary to use the block-further-queries mechanism?
   (sqlite3:finalize! (db:get-db dbstruct #f))
   (let* ((local (dbr:dbstruct-get-local dbstruct))
 	 (rundb (dbr:dbstruct-get-rundb dbstruct)))
     (if local
 	(for-each
@@ -299,17 +299,18 @@
 	(handle-exceptions
 	 exn
 	 #t ;; (debug:print 0 "WARNING: database files may not have been closed correctly. Consider running -cleanup-db")
 	 (sqlite3:interrupt! rundb)
 	 (sqlite3:finalize! rundb #t))))
-  (mutex-unlock! *db-sync-mutex*))
+  ;; (mutex-unlock! *db-sync-mutex*)
+  )
 
 (define (db:open-inmem-db)
   (let* ((db      (sqlite3:open-database ":memory:"))
 	 (handler (make-busy-timeout 3600)))
-    (db:initialize-run-id-db db)
     (sqlite3:set-busy-handler! db handler)
+    (db:initialize-run-id-db db)
     db))
 
 ;; just tests, test_steps and test_data tables
 (define db:sync-tests-only
   (list