Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -1042,45 +1042,45 @@
   (print "In sync")
   (let* ((dbh         (pgdb:open configdat dbname: dest))
 	 (area-info   (pgdb:get-area-by-path dbh *toppath*))
 	 (cached-info (make-hash-table))
 	 (start       (current-seconds))
-   (test-patt   (if (args:get-arg "-testpatt")
-											(args:get-arg "-testpatt")
+         (test-patt   (if (args:get-arg "-testpatt")
+		      (args:get-arg "-testpatt")
                       "%"))
-   (target         (if (args:get-arg "-target")
-														 (args:get-arg "-target")
-													#f))
-    (run-name         (if (args:get-arg "-runname")
-														 (args:get-arg "-runname")
-													#f)))
+         (target      (if (args:get-arg "-target")
+		      (args:get-arg "-target")
+		      #f))
+         (run-name   (if (args:get-arg "-runname")
+		     (args:get-arg "-runname")
+		     #f)))
      (if (and target  (not run-name))
        (begin
-					(print "Error: Provide runname")
+	  (print "Error: Provide runname")
           (exit 1)))
      (if (and (not target)  run-name)
        (begin
-					(print "Error: Provide target")
+	  (print "Error: Provide target")
           (exit 1)))
     ;(print "123")
-    ;(exit 1) 
+    ;(exit 1)
     (for-each (lambda (dtype)
 		(hash-table-set! cached-info dtype (make-hash-table)))
 	      '(runs targets tests steps data))
     (hash-table-set! cached-info 'start start) ;; when done we'll set sync times to this
     (if area-info
-	(let* ((last-sync-time (vector-ref area-info 3))
+	(let* ((last-sync-time (if (args:get-arg "-since") (string->number (args:get-arg "-since")) (vector-ref area-info 3)))
 	       (smallest-last-update-time  (make-hash-table))
-         (changed      (if (and target run-name)
+               (changed      (if (and target run-name)
                             (rmt:get-run-record-ids target run-name (rmt:get-keys) test-patt)
                             (rmt:get-changed-record-ids last-sync-time)))
 	       (run-ids        (alist-ref 'runs       changed))
 	       (test-ids       (alist-ref 'tests      changed))
 	       (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") 
+               (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))))