Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -42,10 +42,17 @@
 
 (define home (getenv "HOME"))
 (define user (getenv "USER"))
 
 ;; GLOBAL GLETCHES
+
+;; Common data structure for 
+(defstruct cxt
+  (taskdb #f))
+
+(define *contexts* (make-hash-table)) ;; toppath => cxt
+
 (define *db-keys* #f)
 
 (define *configinfo*   #f)   ;; raw results from setup, includes toppath and table from megatest.config
 (define *runconfigdat* #f)   ;; run configs data
 (define *configdat*    #f)   ;; megatest.config data

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -394,10 +394,14 @@
 		 (debug:print-info 0 *default-log-port* "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*)))))
      "Watchdog thread")))
 
 (thread-start! *watchdog*)
 
+(defstruct cxt
+  (taskdb #f))
+
+(define *contexts* (make-hash-table)) ;; toppath => cxt
 
 (if (args:get-arg "-log")
     (let ((oup (open-output-file (args:get-arg "-log"))))
       (debug:print-info 0 *default-log-port* "Sending log output to " (args:get-arg "-log"))
       (set! *default-log-port* oup)))