@@ -3975,11 +3975,14 @@
 			(exit 1))))
 		'("MT_RUN_AREA_HOME" "MT_MEGATEST" "MT_CMDINFO" "MT_TEST_RUN_DIR" "MT_LINKTREE" "MT_TESTSUITENAME"))
     )
 )
 
-(setenv "MT_RUN_AREA_HOME" (get-environment-variable "PWD"))
+;; This is NOT good
+;; (setenv "MT_RUN_AREA_HOME" (get-environment-variable "PWD"))
+;; This should be OK but it really should not be necessary
+(setenv "MT_RUN_AREA_HOME" (current-directory))
 
 (if (not (null? remargs))
   (if remargs
     (begin
       (debug:print 0 *default-log-port* "Unrecognised arguments: " (string-intersperse remargs " "))