Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -1127,11 +1127,14 @@
 				       ;;(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 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))
+                                       ))))) 
+                                       (if (>= packets-generated (configf:lookup mtconf "setup" "max_packets_per_run")) (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)
@@ -1374,11 +1377,11 @@
 		   (logf    (conc logdir "/" uuid "-run.log"))
 		   (fullcmd (conc "NBFAKE_LOG=" logf " nbfake " cmdline)))
 	      (if (check-access user mtconf action area)
 		  (if (and (> cpuload maxload)
 			   (member action '("run" "archive"))) ;; do not run archive or run if load is over the specified limit
-		      (print "WARNING: cpuload too high, skipping processing of " uuid)
+		      (print "WARNING: cpuload too high, skipping processing of " uuid " due to " cpuload " > " maxload)
 		      (begin
 			(print "RUNNING: " fullcmd)
 			(system fullcmd) ;; replace with process ...
 			(mark-processed pdb (list (alist-ref 'id pktdat)))
 			(let-values (((ack-uuid ack-pkt)