Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -83,10 +83,11 @@
     (if write-access (sqlite3:set-busy-handler! db handler))
     (if (not dbexists)
 	(db:initialize db))
     ;; Moving db:set-sync to a call in run.scm - it is a persistent value and only needs to be set once
     ;; (db:set-sync db)
+    (sqlite3:execute db "PRAGMA synchronous = 0;")
     db))
 
 ;; keeping it around for debugging purposes only
 (define (open-run-close-no-exception-handling  proc idb . params)
   (debug:print-info 11 "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)