Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -788,11 +788,11 @@
 	      (all-areas (map car (configf:get-section mtconf "areas")))
 	      (contours  (configf:get-section mtconf "contours"))
 	      (torun     (make-hash-table)) ;; target => ( ... info ... )
 	      (rgentargs (hash-table-keys rgconf))) ;; these are the targets registered for automatically triggering
 
-	 (print "rgentargs: " rgentargs)
+	 ;;(print "rgentargs: " rgentargs)
 	 
 	 (for-each
 	  (lambda (runkey)
 	    (let* ((keydats   (configf:get-section rgconf runkey)))
 	      (for-each
@@ -948,12 +948,12 @@
 		      ;; syntax is a little different here. It is a list of commands to run, "scriptname = extra_parameters;scriptname = ..."
 		      ;; where scriptname may be repeated multiple times. The script must return unix-epoch of last change, new-target-name and new-run-name
 		      ;; the script is called like this:  scriptname contour runkey std-runname action extra_param1 extra_param2 ...
 		      (for-each
 		       (lambda (cmd)
-			 (print "cmd: " cmd)
-                         (print "Areas: " all-areas)
+			 ;;(print "cmd: " cmd)
+                         ;;(print "Areas: " all-areas)
                          (for-each 
                            (lambda (area) 
 			     (if (area-allowed? area "area-needs-to-be-run" runkey contour #f) ;; is this area to be handled (from areas=a,b,c OR using areafn=abcfn and *area-checks* ...)
        
 			     (let* ((script (car cmd))
@@ -1186,12 +1186,12 @@
                                     (targets    ;;(or (alist-ref 'target  runkeydat)
                                                     (map-targets mtconf aval-alist runkey area contour))) ;; override with target if forced
                                     ;;(targets    (or (alist-ref 'target  runkeydat)
                                     ;;                (map-targets mtconf aval-alist runkey area contour)))) ;; override with target if forced
                                ;; NEED TO EXPAND RUNKEY => ALL TARGETS MAPPED AND THEN FOREACH .... 
-                               (print "Targets: " targets)
-                               (print "alist: " (alist-ref 'target runkeydat))
+                               ;;(print "Targets: " targets)
+                               ;;(print "alist: " (alist-ref 'target runkeydat))
                                (for-each
                                 (lambda (target)
                                   (print "Creating pkt for runkey=" runkey " target=" target " contour=" contour " area=" area " action=" action " tag-expr=" tag-expr " mode-patt=" mode-patt)
                                   (if (case (or (and action (string->symbol action)) 'noaction)  ;; ensure we have the needed data to run this action
                                         ((noaction)           #f)