Index: common.scm ================================================================== --- common.scm +++ common.scm @@ -471,13 +471,14 @@ (target (or (args:get-arg "-reqtarg") (args:get-arg "-target") (getenv "MT_TARGET"))) (tlist (if target (string-split target "/" #t) '())) (valid (if target - (and (not (null? tlist)) - (eq? numkeys (length tlist)) - (null? (filter string-null? tlist))) + (or (null? keys) ;; probably don't know our keys yet + (and (not (null? tlist)) + (eq? numkeys (length tlist)) + (null? (filter string-null? tlist)))) #f))) (if valid (if split tlist target) Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -722,11 +722,11 @@ (linktree (common:get-linktree)) (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))) (cancreate (and rundir (file-exists? rundir)(file-write-access? rundir)))) - (print "runname: " runname " target: " target " mtcachef: " mtcachef " rccachef: " rccachef) + ;; (print "runname: " runname " target: " target " mtcachef: " mtcachef " rccachef: " rccachef) (cond ;; data was read and cached and available in *configstatus* ((eq? *configstatus* 'fulldata) *toppath*) ;; if mtcachef exists just read it