@@ -33,15 +33,17 @@
 (define *configinfo* #f)
 (define *configdat*  #f)
 (define *toppath*    #f)
 (define *already-seen-runconfig-info* #f)
 (define *waiting-queue* (make-hash-table))
+(define *test-meta-updated* (make-hash-table))
 (define *globalexitstatus* 0) ;; attempt to work around possible thread issues
 (define *passnum*     0) ;; when running track calls to run-tests or similar
 (define *verbosity*   1)
 (define *rpc:listener* #f) ;; if set up for server communication this will hold the tcp port
 (define *runremote*    #f) ;; if set up for server communication this will hold <host port>
+(define *last-db-access* 0) ;; update when db is accessed via server
 
 (define (get-with-default val default)
   (let ((val (args:get-arg val)))
     (if val val default)))