@@ -373,20 +373,22 @@
 (define (setup-for-run)
   ;; would set values for KEYS in the environment here for better support of env-override but 
   ;; have chicken/egg scenario. need to read megatest.config then read it again. Going to 
   ;; pass on that idea for now
   ;; special case
-  (set! *configinfo* (find-and-read-config 
-		      (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config")
-		      environ-patt: "env-override"
-		      given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
-		      pathenvvar: "MT_RUN_AREA_HOME"))
-  (set! *configdat*  (if (car *configinfo*)(car *configinfo*) #f))
-  (set! *toppath*    (if (car *configinfo*)(cadr *configinfo*) #f))
-  (if *toppath*
-      (setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated
-      (debug:print 0 "ERROR: failed to find the top path to your run setup."))
+  (if (not (hash-table? *configdat*))  ;; no need to re-open on every call
+      (begin
+	(set! *configinfo* (find-and-read-config 
+			    (if (args:get-arg "-config")(args:get-arg "-config") "megatest.config")
+			    environ-patt: "env-override"
+			    given-toppath: (get-environment-variable "MT_RUN_AREA_HOME")
+			    pathenvvar: "MT_RUN_AREA_HOME"))
+	(set! *configdat*  (if (car *configinfo*)(car *configinfo*) #f))
+	(set! *toppath*    (if (car *configinfo*)(cadr *configinfo*) #f))
+	(if *toppath*
+	    (setenv "MT_RUN_AREA_HOME" *toppath*) ;; to be deprecated
+	    (debug:print 0 "ERROR: failed to find the top path to your run setup."))))
   *toppath*)
 
 (define (get-best-disk confdat)
   (let* ((disks    (hash-table-ref/default confdat "disks" #f))
 	 (best     #f)