@@ -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)))