Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -1034,11 +1034,11 @@
 	       (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)))