@@ -346,11 +346,12 @@
   ;; 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")))
+		      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."))