Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1102,11 +1102,11 @@
   (mutex-unlock! *incoming-mutex*)
   (if *cache-on*
       (debug:print 6 "INFO: *cache-on* is " *cache-on* ", skipping cache write")
       (db:write-cached-data)))
 
-(define (cdb:tests-register-test run-id test-name item-path #!key (force-write #f))
+(define (cdb:tests-register-test run-id test-name item-path)
   (let ((item-paths (if (equal? item-path "")
 			(list item-path)
 			(list item-path ""))))
     (debug:print 4 "INFO: Adding " run-id ", " test-name "/" item-path " for setting pass/fail counts to the queue")
     (mutex-lock! *incoming-mutex*)
@@ -1114,11 +1114,11 @@
     (set! *incoming-data* (cons (vector 'register-test
 					(current-milliseconds)
 					(list run-id test-name item-path)) ;; fail-count pass-count test-id))
 				*incoming-data*))
     (mutex-unlock! *incoming-mutex*)
-    (if (and (not force-write) *cache-on*)
+    (if *cache-on*
 	(debug:print 6 "INFO: *cache-on* is " *cache-on* ", skipping cache write")
 	(db:write-cached-data))))
 
 ;; The queue is a list of vectors where the zeroth slot indicates the type of query to
 ;; apply and the second slot is the time of the query and the third entry is a list of 
@@ -1698,15 +1698,15 @@
 ;; currently forces a flush of the queue
 (define (rdb:tests-register-test run-id test-name item-path)
   (if *runremote*
       (let ((host (vector-ref *runremote* 0))
 	    (port (vector-ref *runremote* 1)))
-	((rpc:procedure 'cdb:tests-register-test host port) run-id test-name item-path force-write: #t))
-      (cdb:tests-register-test run-id test-name item-path force-write: #t)))
+	((rpc:procedure 'cdb:tests-register-test host port) run-id test-name item-path))
+      (cdb:tests-register-test run-id test-name item-path)))
 
 (define (rdb:flush-queue)
   (if *runremote*
       (let ((host (vector-ref *runremote* 0))
 	    (port (vector-ref *runremote* 1)))
 	((rpc:procedure 'cdb:flush-queue host port)))
       (cdb:flush-queue)))
 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -55,11 +55,11 @@
 				   (string-intersperse (map number->string (u8vector->list (hostname->ip hostname))) ".")
 				   #f))
 	       (host:port      (conc (if ipaddrstr ipaddrstr hostname) ":" (rpc:default-server-port))))
 	  (debug:print 0 "Server started on " host:port)
 	  (db:set-var db "SERVER" host:port)
-	  (set! *cache-on* #t)
+	  ;; (set! *cache-on* #t)
 	  
 	  ;; can use this to run most anything at the remote
 	  (rpc:publish-procedure! 
 	   'remote:run 
 	   (lambda (procstr . params)