Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -223,11 +223,11 @@
     ("-override-user"   . #f)
     ("-msg"             . M)
     ("-start-dir"       . S)
     ("-set-vars"        . v)
     ("-config"          . h)
-    ("-time-out"        . t)
+    ("-time-out"        . u)
     ))
 (define *switch-keys*
   '(
     ("-h"               . #f)
     ("-help"            . #f)
@@ -626,11 +626,11 @@
            (if meta                     ;; construct the switch/param pair.
 					(list meta value)
 					'())))
           
 				(filter cdr args-data)))))
-    (print  "Alldat: " alldat  ) ;;Do not removed. This is uesed by other applications to calculate z card 
+    (print  "Alldat: " alldat  ) ;;Do not remove. This is uesed by other applications to calculate z card 
     ;(exit)
     (add-z-card
      (apply construct-sdat alldat))))
 
 (define (simple-setup start-dir-in)
@@ -721,11 +721,11 @@
 				  (print " message: " ((condition-property-accessor 'exn 'message) exn))
 				  runname)
 			      (print "(mapper " (string-intersperse (list runkey runname area area-path reason contour mode-patt) ", ") ")")
 			      (mapper runkey runname area area-path reason contour mode-patt))
 			    (case callname
-			      ((auto) runname)
+			      ((auto #f) runname)
 			      (else   runtrans)))))
 	 (new-target     target) ;; I believe we will want target manipulation here .. (map-targets xlatr-key runkey area contour))
 	 (actual-action  (if action
 			     (if (equal? action "sync-prepend")
 				 "sync"
@@ -919,15 +919,15 @@
 						       (string-intersperse rem-lines "-")))
 				      (need-run    (> last-change last-run)))
 				 (print "last-run: " last-run " need-run: " need-run)
 				 (if need-run
 				     (let* ((key-msg    `((message  . ,(conc ruletype ":" message))
-							  (runname  . ,runname)
+							  (runname  . ,new-runname)
 							  (runtrans . ,runtrans)
 							  (action   . ,action)
 							  (areas    . ,areas)
-							  (target   . `(,new-target)) ;; overriding with result from runing the script
+							  (target   . ,(list new-target)) ;; overriding with result from runing the script
                                                           )))
 				       (print "key-msg: " key-msg)
 				       (push-run-spec torun contour
 						      (if optional  ;; we need to be able to differentiate same contour, different behavior. 
 							  (conc runkey ":" optional)  ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE