Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1005,10 +1005,21 @@
 		       (lambda (cmd)
 			 ;;(print "cmd: " cmd)
                          ;;(print "Areas: " all-areas)
                          (for-each 
                            (lambda (area) 
+                             ;;(print "Area: " area)
+                             ;;(print "Target: " runkey)
+                             ;;(print "OR: " (or (string->number (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" ))))
+                             ;;(print "Packets generated: " packets-generated)
+                             ;;(print "Comparison: " (< packets-generated 4))
+                             ;;(print "Full Comparison: " 
+                             ;;   (and (< packets-generated (or (string->number (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" )) 10000))  
+                             ;;        (if (args:get-arg "-target") 
+                             ;;             (if (string= (args:get-arg "-target") runkey) (area-allowed? area "area-needs-to-be-run" runkey contour #f) #f) 
+                             ;;             (area-allowed? area "area-needs-to-be-run" runkey contour #f))))
+			    ;;(print "Area Allowed: " (area-allowed? area "area-needs-to-be-run" runkey contour #f))
 ;Add code to check whether area is valid
 			     (if 
                    ;; This code checks whether the target has been passed in via argument, and only runs the specified target
                    (and (< packets-generated (or (string->number (if (configf:lookup mtconf "setup" "max_packets_per_run") (configf:lookup mtconf "setup" "max_packets_per_run") "10000" )) 10000))  (if (args:get-arg "-target") 
                      (if (string= (args:get-arg "-target") runkey) (area-allowed? area "area-needs-to-be-run" runkey contour #f) #f) 
@@ -1110,11 +1121,11 @@
 				       ;;(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
 				;;			  runkey)
 				;;		      key-msg)
-                                       ))))) (print "Skipping due to target or max_packets_per_run")   )    ) (filter (lambda (x) (if (not (args:get-arg "-area")) #t (if (string= x (args:get-arg "-area")) #t #f))) all-areas))
+                                       ))))) (print "Skipping area: " area " and target: " runkey " due to packets-generated: " packets-generated " higher than " (configf:lookup mtconf "setup" "max_packets_per_run") )   )    ) (filter (lambda (x) (if (not (args:get-arg "-area")) #t (if (string= x (args:get-arg "-area")) #t #f))) all-areas))
 		       ) val-alist)) ;; iterate over the param split by ;\s*
 
 		     ;; fossil scm based triggers
 		     ;;
 		     ((fossil)