Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -711,10 +711,36 @@
 			  (setenv var (->string val))
 			  (unsetenv var))))
 		  lst)
 	res)
       '()))
+
+;; clear vars matching pattern, run proc, set vars back
+;; if proc is a string run that string as a command with
+;; system.
+;;
+(define (common:without-vars proc . var-patts)
+  (let ((vars (make-hash-table)))
+    (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)
+		(unsetenv var))))
+	var-patts))
+     (get-environment-variables))
+    (cond
+     ((string? proc)(system proc))
+     (proc          (proc)))
+    (hash-table-for-each
+     vars
+     (lambda (var val)
+       (setenv var val)))
+    vars))
 		  
 ;;======================================================================
 ;; time and date nice to have stuff
 ;;======================================================================
 

Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -490,12 +490,14 @@
 	       (xterm      (lambda (x)
 			     (if (directory-exists? rundir)
 				 (let ((shell (if (get-environment-variable "SHELL") 
 						  (conc "-e " (get-environment-variable "SHELL"))
 						  "")))
-				   (system (conc "cd " rundir 
-						 ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")))
+				   (common:without-vars
+				    (conc "cd " rundir 
+					  ";mt_xterm -T \"" (string-translate testfullname "()" "  ") "\" " shell "&")
+				    "MT_.*"))
 				 (message-window  (conc "Directory " rundir " not found")))))
 	       (widgets    (make-hash-table))
 	       (refreshdat (lambda ()
 			     (let* ((curr-mod-time (file-modification-time db-path))
 				                   ;;     (max ..... (if (file-exists? testdat-path)
@@ -572,18 +574,34 @@
 							 (iup:attribute-set! lbl "TITLE" newval)
 					;(mutex-unlock! mx1)
 							 )))))
 			      lbl))
 	       (store-button store-label)
-	       (command-text-box (iup:textbox #:expand "HORIZONTAL" #:font "Courier New, -10"))
+	       (command-proc (lambda (command-text-box)
+			       (let* ((cmd     (iup:attribute command-text-box "VALUE"))
+				      (fullcmd (conc (dtests:get-pre-command)
+						     cmd 
+						     (dtests:get-post-command))))
+				 (debug:print-info 02 "Running command: " fullcmd)
+				 (common:without-vars fullcmd "MT_.*"))))
+	       (command-text-box (iup:textbox
+				  #:expand "HORIZONTAL"
+				  #:font "Courier New, -10"
+				  #:action (lambda (obj cnum val)
+					     ;; (print "cnum=" cnum)
+					     (if (eq? cnum 13)
+						 (command-prox obj)))
+				  ))
 	       (command-launch-button (iup:button "Execute!" #:action (lambda (x)
-									(let* ((cmd     (iup:attribute command-text-box "VALUE"))
-									       (fullcmd (conc (dtests:get-pre-command)
-											      cmd 
-											      (dtests:get-post-command))))
-									  (debug:print-info 02 "Running command: " fullcmd)
-									  (system fullcmd)))))
+									(command-proc command-text-box))))
+	;; (lambda (x)
+	;; 								(let* ((cmd     (iup:attribute command-text-box "VALUE"))
+	;; 								       (fullcmd (conc (dtests:get-pre-command)
+	;; 										      cmd 
+	;; 										      (dtests:get-post-command))))
+	;; 								  (debug:print-info 02 "Running command: " fullcmd)
+	;; 								  (common:without-vars fullcmd "MT_.*")))))
 	       (kill-jobs (lambda (x)
 			    (iup:attribute-set! 
 			     command-text-box "VALUE"
 			     (conc "megatest -target " keystring " -runname "  runname 
 				   " -set-state-status KILLREQ,n/a -testpatt %/% "
@@ -612,13 +630,15 @@
 						      ";megatest -target " keystring " -runname " runname 
 						      " -runtests " (conc testname "/" (if (equal? item-path "")
 											   "%" 
 											   item-path))
 						      )))
-				       (system (conc (dtests:get-pre-command)
-						     cmd 
-						     (dtests:get-post-command))))))
+				       (common:without-vars
+					(conc (dtests:get-pre-command)
+					      cmd 
+					      (dtests:get-post-command))
+					"MT_.*"))))
 	       (remove-test (lambda (x)
 			      (iup:attribute-set!
 			       command-text-box "VALUE"
 			       (conc "megatest -remove-runs -target " keystring " -runname " runname
 				     " -testpatt " (conc testname "/" (if (equal? item-path "")

ADDED   supplemental.megatest.config
Index: supplemental.megatest.config
==================================================================
--- /dev/null
+++ supplemental.megatest.config
@@ -0,0 +1,3 @@
+[tests-paths]
+nada #{getenv MT_RUN_AREA_HOME}/moretests
+