Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2707,10 +2707,39 @@
     (hash-table-for-each
      vars
      (lambda (var val)
        (setenv var val)))
     vars))
+
+(define (common:propogate-mt-vars-to-subrun proc propogate-vars)
+  (let ((vars      (make-hash-table))
+        (var-patt  "^MT_.*"))
+    (for-each
+     (lambda (vardat) ;; each env var
+       ;(for-each
+      ;(lambda (var-patt)
+	  (if (string-match var-patt (car vardat))
+	      (let ((var (car vardat))
+		    (val (cdr vardat)))
+		(hash-table-set! vars var val)
+                 (if (member var propogate-vars)
+                  (begin
+                  (print var "  " (string-substitute "MT_" "PARENT_" var))
+                  (setenv (string-substitute "MT_" "PARENT_"  var) val)))
+		(unsetenv var))))
+;	var-patts))
+     (get-environment-variables))
+    (cond
+     ((string? proc)(system proc))
+     (proc          (proc)))
+    (hash-table-for-each
+     vars
+     (lambda (var val)
+         (if (member var propogate-vars)
+         (unsetenv (string-substitute "MT_" "PARENT_" var)))  
+       (setenv var val)))
+    vars))
 
 
 (define (common:run-a-command cmd #!key (with-vars #f) (with-orig-env #f))
   (let* ((pre-cmd  (dtests:get-pre-command))
          (post-cmd (dtests:get-post-command))

Index: ezsteps.scm
==================================================================
--- ezsteps.scm
+++ ezsteps.scm
@@ -105,11 +105,11 @@
 	 (let ((proc (lambda ()
 		       (set! pid (process-run "/bin/bash" (list "-c" cmd))))))
 	   (if subrun
                (begin
                  (debug:print-info 0 *default-log-port* "Running without MT_.* environment variables.")
-                 (common:without-vars proc "^MT_.*"))
+                 (common:propogate-mt-vars-to-subrun proc '("MT_TARGET" "MT_LINKTREE" "MT_RUNNAME")))
 	       (proc)))
 	 
          (with-output-to-file "Makefile.ezsteps"
            (lambda ()
              (print stepname ".log :")

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -523,10 +523,11 @@
          "-show-cmdinfo"
 	 "-cleanup-db"))
        (no-watchdog-args-vals (filter (lambda (x) x)
                                       (map args:get-arg no-watchdog-args)))
        (start-watchdog (null? no-watchdog-args-vals)))
+       ;(print  "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals " start-watchdog-specail-arg-val:" start-watchdog-specail-arg-val " start-watchdog:" start-watchdog) 
   ;;(BB> "no-watchdog-args="no-watchdog-args "no-watchdog-args-vals="no-watchdog-args-vals) 
   (if start-watchdog
       (thread-start! *watchdog*)))
 
 

Index: utils/remrun
==================================================================
--- utils/remrun
+++ utils/remrun
@@ -40,6 +40,12 @@
   exit
 fi
 
 export NBFAKE_HOST=$1
 shift
-exec nbfake $*
+cmd=""
+for var in $(env | egrep "^(PARENT_|MT_)"|cut -d= -f1);do
+  new_var="`echo ${!var}`"
+  cmd="$cmd export $var=$new_var;" 
+done
+cmd="$cmd $*"
+exec nbfake $cmd