Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -422,10 +422,11 @@
 			   (args:get-arg "-target")
 			   #f)))
 	   (key-vals (if target (keys:target->keyval keys target) #f))
 	   (sections (if target (list "default" target) #f))
 	   (data     (begin
+		       (setenv "MT_RUN_AREA_HOME" *toppath*)
 		       (if key-vals
 			   (for-each (lambda (kt)
 				       (setenv (car kt) (cadr kt)))
 				     key-vals))
 		       (read-config "runconfigs.config" #f #t sections: sections))))