@@ -38,10 +38,13 @@
 (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
 
+;; DATABASE
+(define *open-dbs* (vector #f (make-hash-table))) ;; megatestdb run-id-dbs
+
 ;; SERVER
 (define *my-client-signature* #f)
 (define *transport-type*    'fs)
 (define *megatest-db*       #f)
 (define *rpc:listener*      #f) ;; if set up for server communication this will hold the tcp port