@@ -41,13 +41,19 @@
 	 (dbexists  (file-exists? dbpath))
 	 (db        (sqlite3:open-database dbpath)) ;; (never-give-up-open-db dbpath))
 	 (handler   (make-busy-timeout (if (args:get-arg "-override-timeout")
 					   (string->number (args:get-arg "-override-timeout"))
 					   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))
@@ -638,18 +644,22 @@
      run-id testname item-path)
     res))
 
 ;; Get test data using test_id
 (define (db:get-test-data-by-id db test-id)
-  (let ((res #f))
-    (sqlite3:for-each-row
-     (lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)
-       (set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
-     db 
-     "SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
-     test-id)
-    res))
+  (if (not test-id)
+      (begin
+	(debug:print 0 "INFO: db:get-test-data-by-id called with test-id=" test-id)
+	#f)
+      (let ((res #f))
+	(sqlite3:for-each-row
+	 (lambda (id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)
+	   (set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir item-path run_duration final_logf comment)))
+	 db 
+	 "SELECT id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment FROM tests WHERE id=?;"
+	 test-id)
+	res)))
 
 
 (define (db:test-set-comment db test-id comment)
   (sqlite3:execute 
    db