@@ -526,17 +526,18 @@
                                  reason TEXT DEFAULT 'none',
                                    CONSTRAINT no_sync_processes UNIQUE (host,pid));"
 			    ))))))
 	 (on-tmp      (equal? (car (string-split dbpath "/")) "tmp"))
 	 (db        (if on-tmp
-			(dbfile:cautious-open-database dbname init-proc 0 "WAL" force-init: #t)
-			(dbfile:cautious-open-database dbname init-proc 0 #f    force-init: #t)
+			(dbfile:cautious-open-database dbname init-proc 1 "WAL" force-init: #t) ;; WAL MODE should use syncronous=1
+			;; (dbfile:cautious-open-database dbname init-proc 0 #f    force-init: #t)
+			(dbfile:cautious-open-database dbname init-proc 0 "MEMORY" force-init: #t)
 			;; (sqlite3:open-database dbname)
 			)))
     (if on-tmp	      ;; done in cautious-open-database
 	(begin
-	  (sqlite3:execute db "PRAGMA synchronous = 0;")
+	  ;; (sqlite3:execute db "PRAGMA synchronous = 0;") ;; why was this here when is is handled by cautious-open-database?
 	  (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))))
     db))
 
 ;; mtest processes registry calls
 
@@ -1579,7 +1580,15 @@
 			    ;; (db:hoh-set! stmt-cache db stmt newstmth)
 			    (hash-table-set! stmt-cache stmt newstmth)
 			    newstmth))))
     (mutex-unlock! *get-cache-stmth-mutex*)
     result))
+
+(define *mutex-stmth-call* (make-mutex))
+
+(define (db:with-mutex-for-stmth proc)
+  (mutex-lock! *mutex-stmth-call*)
+  (let* ((res (proc)))
+    (mutex-unlock! *mutex-stmth-call*)
+    res))
 
 )