Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -449,11 +449,12 @@
     (if rtestpatt (debug:print-info 0 "TESTPATT from runconfigs: " rtestpatt))
     testpatt))
 
 (define (common:args-get-runname)
   (or (args:get-arg "-runname")
-      (args:get-arg ":runname")))
+      (args:get-arg ":runname")
+      (getenv "MT_RUNNAME")))
 
 (define (common:args-get-target #!key (split #f))
   (let* ((keys    (keys:config-get-fields *configdat*))
 	 (numkeys (length keys))
 	 (target  (if (args:get-arg "-reqtarg")

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -697,10 +697,29 @@
 			(begin
 			  (debug:print-info 0 "Caching megatest.config in " fulldir "/.megatest.cfg")
 			  (configf:write-alist *configdat* tmpfile)
 			  (system (conc "ln -sf " tmpfile " " targfile))))
 		    )))))))
+
+;; gather available information, if legit read configs in this order:
+;;
+;;   if have cache;
+;;      read it a return it
+;;   else
+;;     megatest.config     (do not cache)
+;;     runconfigs.config   (cache if all vars avail)
+;;     megatest.config     (cache if all vars avail)
+;;
+(define (launch:setup #!key (force #f))
+  (let* ((runname  (common:args-get-runname))
+	 (target   (common:args-get-target))
+	 (linktree (or (getenv "MT_LINKTREE")
+		       (if *configdat* (configf:lookup *configdat* "setup" "linktree") #f)))
+	 (rundir   (if (and runname target linktree)(conc linktree "/" target "/" runname) #f))
+	 (mtcachef (and rundir (conc rundir "/" ".megatest.cfg-"  megatest-version "-" megatest-fossil-hash)))
+	 (rccachef (and rundir (conc rundir "/" ".runconfigs.cfg-"  megatest-version "-" megatest-fossil-hash))))
+    #f))
 
 (define (get-best-disk confdat testconfig)
   (let* ((disks   (or (and testconfig (hash-table-ref/default testconfig "disks" #f))
 		      (hash-table-ref/default confdat "disks" #f)))
 	 (minspace (let ((m (configf:lookup confdat "setup" "minspace")))