Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1013,11 +1013,19 @@
 				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
 				(res    (handle-exceptions
 					    exn
 					    #f
 					  (print "Running " cmd)
-					  (with-input-from-pipe cmd read-lines))))
+					  (with-input-from-pipe cmd read-lines)))
+                                (cval       (or (configf:lookup mtconf "contours" contour) ""))
+                                (cval-alist (common:val->alist cval))                     ;; BEWARE ... NOT the same val-alist as above!
+                                ;;(areas      (val-alist->areas cval-alist))
+                                (selector   (alist-ref 'selector cval-alist))
+                                (mode-tag   (and selector (string-split-fields "/" selector #:infix)))
+                                (mode-patt  (and mode-tag (if (eq? (length mode-tag) 2)(cadr mode-tag) #f)))
+                                (tag-expr   (and mode-tag (if (null? mode-tag) #f (car mode-tag))))
+                              )
 			     (if (and res (not (null? res)))
 			       (let* ((parts       (string-split (car res))) ;;
 				      (rem-lines   (cdr res))
 				      (num-parts   (length parts))
 				      (last-change (string->number (if (> num-parts 0)(car parts) "abc")))  ;; force no run if not a number returned
@@ -1058,12 +1066,12 @@
                                           0
                                         (apply max (map cdr starttimes))))
 
                                      ;; (last-run  9) ;; I think we can do a more valid calculation for this based on the run started packets for this particular area and target
                                       (reason "Area-script-triggered")
-                                      (mode-patt #f)
-                                      (tag-expr #f)
+                                      ;;(mode-patt #f)
+                                      ;;(tag-expr #f)
 				      (sched #f)
 				      (message     (if (null? rem-lines)
 						       cmd
 						       (string-intersperse rem-lines "-")))
 				      (need-run    (> last-change last-run)))