Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -129,28 +129,32 @@
        (debug:print 0 "ERROR: Couldn't create path to " dbdir)
        (exit 1))
      (if (not (directory? dbdir))(create-directory dbdir #t)))
     (conc dbdir fname)))
 	       
+(define (db:set-sync db)
+  (let ((syncprag (configf:lookup *configdat* "setup" "sychronous")))
+    (sqlite3:execute db (conc "PRAGMA synchronous = " (or syncprag 1) ";"))))
+
 ;; open an sql database inside a file lock
 ;;
 ;; returns: db existed-prior-to-opening
 ;;
 (define (db:lock-create-open fname initproc)
   (if (file-exists? fname)
       (let ((db (sqlite3:open-database fname)))
 	(sqlite3:set-busy-handler! db (make-busy-timeout 136000))
-	(sqlite3:execute db "PRAGMA synchronous = 0;")
+	(db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = 0;")
 	db)
       (let* ((parent-dir   (pathname-directory fname))
 	     (dir-writable (file-write-access? parent-dir)))
 	(if dir-writable
 	    (let ((exists  (file-exists? fname))
 		  (lock    (obtain-dot-lock fname 1 5 10))
 		  (db      (sqlite3:open-database fname)))
 	      (sqlite3:set-busy-handler! db (make-busy-timeout 136000))
-	      (sqlite3:execute db "PRAGMA synchronous = 0;")
+	      (db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = 0;")
 	      (if (not exists)(initproc db))
 	      (release-dot-lock fname)
 	      db)
 	    (begin
 	      (debug:print 0 "ERROR: no such db in non-writable dir " fname)
@@ -806,11 +810,12 @@
 					   136000)))) ;; 136000)))
     (sqlite3:set-busy-handler! db handler)
     (if (not dbexists)
 	(begin
 	  (sqlite3:execute db "CREATE TABLE IF NOT EXISTS log (id INTEGER PRIMARY KEY,event_time TIMESTAMP DEFAULT (strftime('%s','now')),logline TEXT,pwd TEXT,cmdline TEXT,pid INTEGER);")
-	  (sqlite3:execute db (conc "PRAGMA synchronous = 0;"))))
+	  (db:set-sync db) ;; (sqlite3:execute db (conc "PRAGMA synchronous = 0;"))
+	  ))
     db))
 
 (define (db:log-local-event . loglst)
   (let ((logline (apply conc loglst)))
     (db:log-event logline)))

Index: portlogger.scm
==================================================================
--- portlogger.scm
+++ portlogger.scm
@@ -8,14 +8,15 @@
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 (require-extension (srfi 18) extras tcp s11n)
 
-(use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking)
+(use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3)
 (import (prefix sqlite3 sqlite3:))
 
 (declare (unit portlogger))
+(declare (uses db))
 
 ;; lsof -i
 
 
 (define (portlogger:open-db fname)
@@ -35,11 +36,11 @@
          ;;                 port INTEGER PRIMARY KEY,
          ;;                 state TEXT DEFAULT 'not-used',
          ;;                 fail_count INTEGER DEFAULT 0,
          ;;                 update_time TIMESTAMP DEFAULT (strftime('%s','now')) );"))))
     (sqlite3:set-busy-handler! db handler)
-    (sqlite3:execute db "PRAGMA synchronous = 0;")
+    (db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = 0;")
     ;; (if (not exists) ;; needed with IF NOT EXISTS?
     (sqlite3:execute 
      db
      "CREATE TABLE IF NOT EXISTS ports (
             port INTEGER PRIMARY KEY,

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -85,11 +85,11 @@
 	      (handler      (make-busy-timeout 36000)))
 	 (if (and exists
 		  (not write-access))
 	     (set! *db-write-access* write-access)) ;; only unset so other db's also can use this control
 	 (sqlite3:set-busy-handler! mdb handler)
-	 (sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
+	 (db:set-sync db) ;; (sqlite3:execute mdb (conc "PRAGMA synchronous = 0;"))
 	 (if (or (and (not exists)
 		      (file-write-access? *toppath*))
 		 (not (file-read-access? dbpath)))
 	     (begin
 	       (sqlite3:execute mdb "CREATE TABLE IF NOT EXISTS tasks_queue (id INTEGER PRIMARY KEY,

Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -22,10 +22,11 @@
 (declare (uses common))
 (declare (uses keys))
 (declare (uses ods))
 (declare (uses client))
 (declare (uses mt))
+(declare (uses db))
 
 (include "common_records.scm")
 (include "db_records.scm")
 (include "key_records.scm")
 (include "run_records.scm")
@@ -61,11 +62,11 @@
 	   (set! dbexists #f)) ;; must force re-creation of tables, more tom-foolery
 	 (set! db (sqlite3:open-database dbpath)))
 	(if *db-write-access* (sqlite3:set-busy-handler! db handler))
 	(if (not dbexists)
 	    (begin
-	      (sqlite3:execute db "PRAGMA synchronous = FULL;")
+	      (db:set-sync db) ;; (sqlite3:execute db "PRAGMA synchronous = FULL;")
 	      (debug:print-info 11 "Initialized test database " dbpath)
 	      (tdb:testdb-initialize db)))
 	;; (sqlite3:execute db "PRAGMA synchronous = 0;")
 	(debug:print-info 11 "open-test-db END (sucessful)" work-area)
 	;; now let's test that everything is correct

Index: tests/Makefile
==================================================================
--- tests/Makefile
+++ tests/Makefile
@@ -177,11 +177,11 @@
 clean  : 
 	rm cleanprep
 
 kill :
 	killall -v mtest main.sh dboard || true
-	rm -rf *run/db/* */megatest.db */logging.db */monitor.db fullrun/tmp/mt_*/* fullrun/tmp/mt_*/.db* fullrun/logs/*.log fullrun/*.log || true
+	rm -rf /tmp/.$(USER)-portlogger.db *run/db/* */megatest.db */logging.db */monitor.db fullrun/tmp/mt_*/* fullrun/tmp/mt_*/.db* fullrun/logs/*.log fullrun/*.log || true
 	killall -v mtest dboard || true
 
 hardkill : kill
 	sleep 2;killall -v mtest main.sh dboard -9
 

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -61,11 +61,11 @@
 # or for hard links
 
 # testcopycmd cp --remove-destination -rlv TEST_SRC_PATH/. TEST_TARG_PATH/.
 
 # FULL or 2, NORMAL or 1, OFF or 0
-synchronous OFF
+synchronous 1
 # Throttle roughly scales the db access milliseconds to seconds delay
 throttle 0.2
 # Max retries allows megatest to re-check that a tests status has changed
 # as tests can have transient FAIL status occasionally
 maxretries 20