@@ -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))