Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -594,14 +594,14 @@
 	(let* ((dbname    (conc dbpath "/no-sync.db"))
 	       (db-exists (file-exists? dbname))
 	       (init-proc (lambda (db)
 			    (if (not db-exists)
 				(begin
-				  (sqlite3:execute db "PRAGMA synchronous = 0;")
 				  (sqlite3:execute db "CREATE TABLE IF NOT EXISTS no_sync_metadat (var TEXT,val TEXT, CONSTRAINT no_sync_metadat_constraint UNIQUE (var));"))
 				)))
 	       (db        (dbfile:cautious-open-database dbname init-proc))) ;; (sqlite3:open-database dbname)))
+	  (sqlite3:execute db "PRAGMA synchronous = 0;")
 	  (sqlite3:set-busy-handler! db (sqlite3:make-busy-timeout 136000))
 	  ;;(sqlite3:execute db "PRAGMA journal_mode=WAL;")
 	  (set! *no-sync-db* db)
 	  db))))