Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -980,14 +980,14 @@
 ;;======================================================================
 
 ;; call with dbinit=db:initialize-main-db
 ;;
 (define (db:open-db dbstruct run-id dbinit)
-  (mutex-lock! *db-open-mutex*)
+  ;; (mutex-lock! *db-open-mutex*)
   (let* ((dbdat (dbfile:open-db dbstruct run-id dbinit)))
     (set! *db-write-access* (not (dbr:dbdat-read-only dbdat)))
-    (mutex-unlock! *db-open-mutex*)
+    ;; (mutex-unlock! *db-open-mutex*)
     dbdat))
 
 (define dbfile:db-init-proc (make-parameter #f))
 
 ;; (db:with-db dbstruct run-id sqlite3:exec "select blah fgrom blaz;")