@@ -35,14 +35,24 @@
 
 (define home (getenv "HOME"))
 (define user (getenv "USER"))
 
 ;; GLOBAL GLETCHES
-(define *db-keys* #f)
-(define *configinfo* #f)
-(define *configdat*  #f)
-(define *toppath*    #f)
+(define-record megatest:area
+  name
+  path
+  transport
+  configinfo
+  configdat
+  denoise
+  client-signature
+  remote
+  )
+
+;; (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
@@ -64,14 +74,13 @@
 (define *task-db*             #f) ;; (vector db path-to-db)
 (define *db-access-allowed*   #t) ;; flag to allow access
 (define *db-access-mutex*     (make-mutex))
 
 ;; SERVER
-(define *my-client-signature* #f)
-(define *transport-type*    'http)
-(define *transport-type*    'http)             ;; override with [server] transport http|rpc|nmsg
-(define *runremote*         (make-hash-table)) ;; if set up for server communication this will hold <host port>
+;; (define *my-client-signature* #f)
+;; (define *transport-type*    'http)             ;; override with [server] transport http|rpc|nmsg
+;; (define *runremote*         (make-hash-table)) ;; if set up for server communication this will hold <host port>
 
 (define (common:get-remote remote run-id)
   (let ((ht (or remote *runremote*)))
     (if ht
 	(hash-table-ref/default ht run-id #f)