@@ -44,10 +44,11 @@
 (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 *write-frequency*   (make-hash-table)) ;; run-id => (vector (current-seconds) 0))
 
 ;; DATABASE
 (define *open-dbs* (vector #f (make-hash-table))) ;; megatestdb run-id-dbs
 
 ;; SERVER