Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -310,10 +310,11 @@
 			"-start-dir"
                         "-run-patt"
                         "-target-patt"   
 			"-contour"
                         "-area-tag"  
+                        "-area"  
 			"-server"
 			"-transport"
 			"-port"
 			"-extract-ods"
 			"-pathmod"

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -1032,11 +1032,13 @@
 	       (test-step-ids  (alist-ref 'test_steps changed))
 	       (test-data-ids  (alist-ref 'test_data  changed))
 	       (run-stat-ids   (alist-ref 'run_stats  changed))
          (area-tag    (if (args:get-arg "-area-tag") 
                                  (args:get-arg "-area-tag")
-                                  "")))
+                                 (if (args:get-arg "-area") 
+                                   (args:get-arg "-area") 
+                                   "")))
            (if (and (equal? area-tag "") (not (pgdb:is-area-taged dbh (vector-ref area-info 0))))
             (set! area-tag *default-area-tag*)) 
            (if (not (equal? area-tag "")) 
              (task:add-area-tag dbh area-info area-tag)) 
 	  (if (or (not (null? test-ids)) (not (null? run-ids)))