@@ -2532,11 +2532,11 @@
 (define (db:get-run-info dbstruct run-id)
   ;;(if (hash-table-ref/default *run-info-cache* run-id #f)
   ;;    (hash-table-ref *run-info-cache* run-id)
   (let* ((res       (vector #f #f #f #f))
 	 (keys      (db:get-keys dbstruct))
-	 (remfields (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count" "contour")) ;;  "area_id"))
+	 (remfields (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count" "contour" "last_update")) ;;  "area_id"))
 	 (header    (append keys remfields))
 	 (keystr    (conc (keys->keystr keys) ","
 			  (string-intersperse remfields ","))))
     (debug:print-info 11 *default-log-port* "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
     
@@ -3072,11 +3072,11 @@
       #f
       test-id))))
 
 (define db:test-record-fields '("id"           "run_id"        "testname"  "state"      "status"      "event_time"
 				"host"         "cpuload"       "diskfree"  "uname"      "rundir"      "item_path"
-                                "run_duration" "final_logf"    "comment"   "shortdir"   "attemptnum"  "archived"))
+                                "run_duration" "final_logf"    "comment"   "shortdir"   "attemptnum"  "archived" "last_update"))
 
 ;; fields *must* be a non-empty list
 ;;
 (define (db:field->number fieldname fields)
   (if (null? fields)
@@ -3177,13 +3177,13 @@
    #f ;; run-id
    #f
    (lambda (db)
      (let ((res #f))
        (sqlite3:for-each-row ;; attemptnum added to hold pid of top process (not Megatest) controlling a test
-	(lambda (id run-id testname state status event-time host cpuload diskfree uname rundir-id item-path run_duration final-logf-id comment short-dir-id attemptnum archived)
+	(lambda (id run-id testname state status event-time host cpuload diskfree uname rundir-id item-path run_duration final-logf-id comment short-dir-id attemptnum archived last-update)
 	  ;;                0    1       2      3      4        5       6      7        8     9     10      11          12          13           14         15          16
-	  (set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir-id item-path run_duration final-logf-id comment short-dir-id attemptnum archived)))
+	  (set! res (vector id run-id testname state status event-time host cpuload diskfree uname rundir-id item-path run_duration final-logf-id comment short-dir-id attemptnum archived last-update)))
 	db
 	(conc "SELECT " db:test-record-qry-selector " FROM tests WHERE id=?;")
 	test-id)
        res))))
 
@@ -3304,16 +3304,16 @@
    (db:with-db
     dbstruct
     #f 
     #f
     (lambda (db)
-      (let* ((res (vector #f #f #f #f #f #f #f #f)))
+      (let* ((res (vector #f #f #f #f #f #f #f #f #f)))
         (sqlite3:for-each-row 
-       (lambda (id test-id stepname state status event-time logfile comment)
-         (set! res (vector id test-id stepname state status event-time (if (string? logfile) logfile "") comment)))
+       (lambda (id test-id stepname state status event-time logfile comment last-update)
+         (set! res (vector id test-id stepname state status event-time (if (string? logfile) logfile "") comment last-update)))
        db
-       "SELECT id,test_id,stepname,state,status,event_time,logfile,comment FROM test_steps WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
+       "SELECT id,test_id,stepname,state,status,event_time,logfile,comment,last_update FROM test_steps WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
        test-step-id)
         res))))
 
 (define (db:get-steps-data dbstruct run-id test-id)
   (db:with-db
@@ -3338,16 +3338,16 @@
    (db:with-db
     dbstruct
     #f 
     #f
     (lambda (db)
-      (let* ((res (vector #f #f #f #f #f #f #f #f #f #f #f)))
+      (let* ((res (vector #f #f #f #f #f #f #f #f #f #f #f #f)))
         (sqlite3:for-each-row 
-       (lambda (id test-id  category variable value expected tol units comment status type )
-         (set! res (vector id test-id  category variable value expected tol units comment status type)))
+       (lambda (id test-id  category variable value expected tol units comment status type last-update)
+         (set! res (vector id test-id  category variable value expected tol units comment status type last-update)))
        db
-       "SELECT id,test_id, category, variable, value, expected, tol, units, comment, status, type FROM test_data WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
+       "SELECT id,test_id, category, variable, value, expected, tol, units, comment, status, type, last_update FROM test_data WHERE id=? ORDER BY id ASC;" ;; event_time DESC,id ASC;
        test-data-id)
         res))))
 
 
 ;; WARNING: Do NOT call this for the parent test on an iterated test
@@ -3528,11 +3528,11 @@
 	  (set! res (cons (vector id test_id category variable value expected tol units comment status type) res)))
 	db
 	"SELECT id,test_id,category,variable,value,expected,tol,units,comment,status,type FROM test_data WHERE test_id=? AND category LIKE ? ORDER BY category,variable;" test-id categorypatt)
        (reverse res)))))
 
-;; This routine moved from tdb.scm, tdb:read-test-data
+;; This routine moved from tdb.scm, :read-test-data
 ;;
 (define (db:read-test-data* dbstruct run-id test-id categorypatt varpatt)
   (let* ((res '()))
     (db:with-db
      dbstruct #f #f
@@ -4485,10 +4485,32 @@
 	      ;; (if (not ever-seen)(set! result (cons waitontest-name result)))))
                ((not ever-seen)
                 (set! result (append (if (null? waiton-tests)(list waitontest-name) waiton-tests) result))))))
 	  waitons)
 	 (delete-duplicates result)))))
+;;======================================================================
+;; To sync individual run
+;;======================================================================
+(define (db:get-run-record-ids dbstruct target run keynames test-patt)
+(let ((backcons (lambda (lst item)(cons item lst))))
+    (db:with-db
+     dbstruct #f #f 
+     (lambda (db)
+        (let* ((keystr (string-intersperse 
+		     (map (lambda (key val)
+			    (conc key " like '" val "'"))
+			  keynames 
+			  (string-split target "/"))
+		     " AND "))
+         (run-qry (conc "SELECT id FROM runs  WHERE " keystr  " and runname='" run"'"))
+         (test-qry (conc "SELECT id FROM tests WHERE run_id in (" run-qry ") and testname like '" test-patt "'")))
+         ;(print run-qry)
+       `((runs       . ,(fold-row backcons '() db run-qry))
+	 			(tests      . ,(fold-row backcons '() db test-qry))
+	 			(test_steps . ,(fold-row backcons '() db (conc "SELECT id FROM test_steps WHERE test_id in (" test-qry ")")))
+	 			(test_data  . ,(fold-row backcons '() db (conc "SELECT id FROM test_data  WHERE test_id in (" test-qry ")" )))
+	 ))))))
 
 ;;======================================================================
 ;; Just for sync, procedures to make sync easy
 ;;======================================================================
 
@@ -4499,16 +4521,16 @@
   ;; no transaction, allow the db to be accessed between the big queries
   (let ((backcons (lambda (lst item)(cons item lst))))
     (db:with-db
      dbstruct #f #f 
      (lambda (db)
-       `((runs       . ,(fold-row backcons '() db "SELECT id FROM runs  WHERE last_update>?" since-time))
-	 (tests      . ,(fold-row backcons '() db "SELECT id FROM tests WHERE last_update>?" since-time))
-	 (test_steps . ,(fold-row backcons '() db "SELECT id FROM test_steps WHERE last_update>?" since-time))
-	 (test_data  . ,(fold-row backcons '() db "SELECT id FROM test_data  WHERE last_update>?" since-time))
+       `((runs       . ,(fold-row backcons '() db "SELECT id FROM runs  WHERE last_update>=?" since-time))
+	 (tests      . ,(fold-row backcons '() db "SELECT id FROM tests WHERE last_update>=?" since-time))
+	 (test_steps . ,(fold-row backcons '() db "SELECT id FROM test_steps WHERE last_update>=?" since-time))
+	 (test_data  . ,(fold-row backcons '() db "SELECT id FROM test_data  WHERE last_update>=?" since-time))
 	 ;; (test_meta  . ,(fold-row backcons '() db "SELECT id FROM test_meta  WHERE last_update>?" since-time))
-	 (run_stats  . ,(fold-row backcons '() db "SELECT id FROM run_stats  WHERE last_update>?" since-time))
+	 (run_stats  . ,(fold-row backcons '() db "SELECT id FROM run_stats  WHERE last_update>=?" since-time))
 	 )))))
 
 ;;======================================================================
 ;; Extract ods file from the db
 ;;======================================================================