Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1012,10 +1012,11 @@
 ;;======================================================================
 ;; QUEUE UP META, TEST STATUS AND STEPS
 ;;======================================================================
 
 (define (db:updater)
+  (debug:print 4 "INFO: Starting cache processing")
   (let loop ((start-time (current-time)))
     (thread-sleep! 15) ;; move save time around to minimize regular collisions?
     (db:write-cached-data)
     (loop start-time)))
 

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -106,10 +106,11 @@
 	  (set! *rpc:listener* rpc:listener)
 	  (on-exit (lambda ()
 		     (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER' and val=?;" host:port)
 		     (sqlite3:finalize! db)))
 	  (thread-start! th1)
+	  (debug:print 0 "Server started...")
 	  (thread-start! th2)
 	  ;; (thread-join!  th2)
 	  ;; return th2 for the calling process to do a join with 
 	  th2
 	  )))) ;; rpc:server)))