Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -823,11 +823,12 @@
 (define (contains list x) (cond ((null? list) #f) ((eq? (car list) x) #t) (else (contains (cdr list) x))))
 
 ;; collect all needed data and create run pkts for contours with changed inputs
 ;;
 (define (generate-run-pkts mtconf toppath)
-  (let ((std-runname (conc "sched"  (time->string (seconds->local-time (current-seconds)) "%M%H%d"))))
+  (let ((std-runname (conc "sched"  (time->string (seconds->local-time (current-seconds)) "%M%H%d")))
+        (packets-generated 0))
     (common:with-queue-db
      mtconf
      (lambda (pktsdirs pktsdir pdb)
        (let* ((rgconfdat (find-and-read-config (conc toppath "/runconfigs.config")))
 	      (rgconf    (car rgconfdat))
@@ -1006,13 +1007,14 @@
                          ;;(print "Areas: " all-areas)
                          (for-each 
                            (lambda (area) 
 ;Add code to check whether area is valid
 			     (if 
-                   (if (args:get-arg "-target") 
+                   ;; This code checks whether the target has been passed in via argument, and only runs the specified target
+                   (and (< packets-generated 4)  (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))
+                     (area-allowed? area "area-needs-to-be-run" runkey contour #f)))
        
 			     (let* ((script (car cmd))
 				(params (cdr cmd))
 				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
 				(res    (handle-exceptions
@@ -1091,13 +1093,16 @@
 							(aval       (or (configf:lookup mtconf "areas" area) ""))
                                     			(aval-alist (common:val->alist aval))
 
 							(targets (map-targets mtconf aval-alist runkey area contour)))
                                         (pp targets)
-				        (for-each (lambda (target) (create-run-pkt mtconf action area runkey target new-runname mode-patt
+				        (for-each (lambda (target) 
+                                                     (create-run-pkt mtconf action area runkey target new-runname mode-patt
                                                       tag-expr pktsdir reason contour sched dbdest append
-                                                      runtrans)) targets)
+                                                      runtrans)
+                                                     (set! packets-generated (+ packets-generated 1))
+                                                  ) targets)
 					;; Add filter for targets
 
                                        ;;(create-run-pkt mtconf action area runkey target runname
                                        ;;               pktsdir reason contour dbdest append
                                        ;;               runtrans)