@@ -903,14 +903,18 @@
       (debug:print-info 1 *default-log-port*  "Error: Could not get test step info for step id " test-step-id ))))	;; this is a wierd senario need to debug      	
    test-step-ids)))
 
 (define (tasks:sync-test-gen-data dbh cached-info test-data-ids smallest-last-update-time)
   (let ((test-ht (hash-table-ref cached-info 'tests))
-        (data-ht (hash-table-ref cached-info 'data)))
+        (data-ht (hash-table-ref cached-info 'data))
+        (run-id-in #f)
+        )
     (for-each
      (lambda (test-data-id)
-        (let* ((test-data-info  (rmt:get-data-info-by-id test-data-id))
+        (set! run-id-in (cdr test-data-id))
+        (set! test-data-id (car test-data-id))
+        (let* ((test-data-info  (rmt:get-data-info-by-id run-id-in test-data-id))
                (data-id (db:test-data-get-id  test-data-info))
                (test-id  (db:test-data-get-test_id   test-data-info))   
 	       (category  (db:test-data-get-category  test-data-info))
 	       (variable  (db:test-data-get-variable test-data-info))	
 	       (value (db:test-data-get-value  test-data-info))	
@@ -1059,45 +1063,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))))