Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -59,12 +59,12 @@
      #f)
    (thunk)))
 
 (define getenv get-environment-variable)
 (define (safe-setenv key val)
-  (if (substring-index ":" key) ;; variables containing : are for internal use and cannot be environment variables.
-      (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\"")
+  (if (or (substring-index "!" key) (substring-index ":" key)) ;; variables containing : are for internal use and cannot be environment variables.
+      (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"")
       (if (and (string? val)
 	       (string? key))
 	  (handle-exceptions
 	      exn
 	      (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -654,11 +654,11 @@
 		(lambda (varval)
 		  (let ((var (car varval))
 			(val (cadr varval)))
 		    (if (and (string? var)(string? val))
 			(begin
-			  (setenv var (config:eval-string-in-environment val))) ;; val)
+			  (safe-setenv var (config:eval-string-in-environment val))) ;; val)
 			(debug:print-error 0 *default-log-port* "bad variable spec, " var "=" val))))
 		(configf:get-section rconfig section)))
 	     (list "default" target)))
           ;;(bb-check-path msg: "launch:execute post block 1")
 

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1027,11 +1027,11 @@
 							(aval       (or (configf:lookup mtconf "areas" area) ""))
                                     			(aval-alist (common:val->alist aval))
 
 							(targets (map-targets mtconf aval-alist runkey area contour)))
                                         (pp targets)
-				        (for-each (lambda (target) (create-run-pkt mtconf action area runkey target runname mode-patt
+				        (for-each (lambda (target) (create-run-pkt mtconf action area runkey target new-runname mode-patt
                                                       tag-expr pktsdir reason contour sched dbdest append
                                                       runtrans)) targets)
 
                                        ;;(create-run-pkt mtconf action area runkey target runname
                                        ;;               pktsdir reason contour dbdest append