Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -836,13 +836,19 @@
 					(apply max (map cdr synctimes))))
 			)
 
 		   (let ((delta (lambda (x)
 				  (round (/ (- (current-seconds) x) 60)))))
-		     (print "runkey: " runkey ", ruletype: " ruletype ", action: " action ", last-run: " last-run " time since; last-run: " (delta last-run) ", last-sync: " (delta last-sync)))
+             (if (args:get-arg "-target")
+               (if (string= (args:get-arg "-target") runkey)
+		       (begin (print "runkey: " runkey ", ruletype: " ruletype ", action: " action ", last-run: " last-run " time since; last-run: " (delta last-run) ", last-sync: " (delta last-sync))
+		              (print "val-alist=" val-alist " runtrans=" runtrans))
+               (if #f (print "skipping: " runkey)))
+		       (begin (print "runkey: " runkey ", ruletype: " ruletype ", action: " action ", last-run: " last-run " time since; last-run: " (delta last-run) ", last-sync: " (delta last-sync))
+		              (print "val-alist=" val-alist " runtrans=" runtrans))
+           ))
 
-		   (print "val-alist=" val-alist " runtrans=" runtrans)
 		   
 		   ;; look in runstarts for matching runs by target and contour
 		   ;; get the timestamp for when that run started and pass it
 		   ;; to the rule logic here where "ruletype" will be applied
 		   ;; if it comes back "changed" then proceed to register the runs
@@ -952,11 +958,15 @@
 		       (lambda (cmd)
 			 ;;(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* ...)
+;Add code to check whether area is valid
+			     (if 
+                   (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))
        
 			     (let* ((script (car cmd))
 				(params (cdr cmd))
 				(cmd    (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
 				(res    (handle-exceptions
@@ -1030,10 +1040,11 @@
 							(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
                                                       tag-expr pktsdir reason contour sched dbdest append
                                                       runtrans)) targets)
+					;; Add filter for targets
 
                                        ;;(create-run-pkt mtconf action area runkey target runname
                                        ;;               pktsdir reason contour dbdest append
                                        ;;               runtrans)
 				       (print "key-msg: " key-msg)
@@ -1040,11 +1051,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)
-                                       ))))))) all-areas)
+                                       ))))))) (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)