@@ -130,11 +130,11 @@
 		    (begin
 		      (db:initialize-run-id-db db)
 		      ;; (sdb:initialize db) 
 		      )) ;; add strings db to rundb, not in use yet
 		(sqlite3:set-busy-handler! db handler)
-		(sqlite3:execute db "PRAGMA synchronous = 0;")))
+		(sqlite3:execute db "PRAGMA synchronous = 1;"))) ;; was 0 but 0 is a gamble
 	  (dbr:dbstruct-set-runvec-val! dbstruct run-id 'rundb db)
 	  (dbr:dbstruct-set-runvec-val! dbstruct run-id 'inuse #t)
 	  (if local
 	      (begin
 		(dbr:dbstruct-set-runvec-val! dbstruct run-id 'inmem db) ;; direct access ...