Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -206,20 +206,20 @@
 
 ;; open an sql database inside a file lock
 ;; returns: db existed-prior-to-opening
 ;; RA => Returns a db handler; sets the lock if opened in writable mode
 ;;
-(define *db-open-mutex* (make-mutex))
+;;(define *db-open-mutex* (make-mutex))
 
 (define (db:lock-create-open fname initproc)
   (let* ((parent-dir   (or (pathname-directory fname)(current-directory))) ;; no parent? go local
 	 (dir-writable (file-write-access? parent-dir))
 	 (file-exists  (file-exists? fname))
 	 (file-write   (if file-exists
 			   (file-write-access? fname)
 			   dir-writable )))
-    (mutex-lock! *db-open-mutex*)
+    ;;(mutex-lock! *db-open-mutex*) ;; tried this mutex, not clear it helped.
     (if file-write ;; dir-writable
 	(let (;; (lock    (obtain-dot-lock fname 1 5 10))
 	      (db      (sqlite3:open-database fname)))
 	  (sqlite3:set-busy-handler! db (make-busy-timeout 136000))
 	  ;; (db:set-sync db)
@@ -230,16 +230,16 @@
                          (string-match "^/tmp/.*" fname)) ;; this is a file in /tmp
 		    (sqlite3:execute db "PRAGMA journal_mode=WAL;")
 		    (print "Creating " fname " in NON-WAL mode."))
 		(initproc db)))
 	  ;; (release-dot-lock fname)
-          (mutex-unlock! *db-open-mutex*)
+          ;;(mutex-unlock! *db-open-mutex*)
 	  db)
 	(begin
 	  (debug:print 2 *default-log-port* "WARNING: opening db in non-writable dir " fname)
 	  (let ((db (sqlite3:open-database fname)))
-            (mutex-unlock! *db-open-mutex*)
+            ;;(mutex-unlock! *db-open-mutex*)
             db))))) ;; )