Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -652,12 +652,12 @@
 
 (define (db:write-cached-data db)
   (let ((meta-stmt (sqlite3:prepare db "UPDATE tests SET cpuload=?,diskfree=?,run_duration=?,state='RUNNING' WHERE run_id=? AND testname=? AND item_path=? AND state NOT IN ('COMPLETED','KILLREQ','KILLED');"))
 	(step-stmt (sqlite3:prepare db "INSERT OR REPLACE into test_steps (test_id,stepname,state,status,event_time,comment,logfile) VALUES(?,?,?,?,?,?,?);")) ;; strftime('%s','now')#f)
 	(data (sort *incoming-data* (lambda (a b)(< (vector-ref a 1)(vector-ref b 1))))))
-    ;(if (> (length data) 0)
-(debug:print 0 "Writing cached data " data);)
+    (if (> (length data) 0)
+	(debug:print 4 "Writing cached data " data))
     (mutex-lock! *incoming-mutex*)
     (for-each (lambda (entry)
 		(case (vector-ref entry 0)
 		  ((meta-info)
 		   (apply sqlite3:execute meta-stmt (vector-ref entry 2)))

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