Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -45,10 +45,15 @@
 					   36000)))) ;; 136000)))
     (debug:print 4 "INFO: dbpath=" dbpath)
     (sqlite3:set-busy-handler! db handler)
     (if (not dbexists)
 	(db:initialize db))
+    (if (config-lookup *configdat* "setup"     "synchronous")
+	(begin
+	  (debug:print 4 "INFO: Turning on pragma synchronous")
+	  (sqlite3:execute db "PRAGMA synchronous = 0;"))
+	(debug:print 4 "INFO: NOT turning on pragma synchronous"))
     db))
 
 (define (db:initialize db)
   (let* ((configdat (car *configinfo*))  ;; tut tut, global warning...
 	 (keys     (config-get-fields configdat))

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -8,10 +8,12 @@
 [refareas]
 area1 /tmp/oldarea/megatest
 
 [include config/mt_include_1.config]
 
+[setup]
+synchronous yes
 
 [validvalues]
 state start end 
 status pass fail n/a 0 1 running