Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -2297,10 +2297,41 @@
 				       (string-search ":" key)) ;; internal only values to be skipped.
 				   "# export "
 				   "export ")
 			       key "=" delim (mungeval val) delim)))
                     envvars)))))
+
+;;======================================================================
+;;
+(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:get-param-mapping #!key (flavor #f))
   "returns alist mapping string keys in testconfig/subrun to megatest command line switches; if flavor is switch-symbol, maps tcmt symbolic switches to megatest switches"
   (let ((default '(("tag-expr"  . "-tagexpr")