@@ -782,22 +782,22 @@
         (hash-table-set! smallest-last-update-time "smallest-time" last-update)))
 		(pgdb:refresh-run-info
 		 dbh
 		 new-run-id
 		 state status owner event-time comment fail-count pass-count area-id last-update)
-     (debug:print-info 1 *default-log-port* "Working on run-id " run-id " pgdb-id"  new-run-id )
-		new-run-id)
+     (debug:print-info 1 *default-log-port* "Working on run-id " run-id " pgdb-id "  new-run-id )
+		new-run-id) 
       
 	      (if (equal? state "deleted")
           (begin 
           (debug:print-info 1 *default-log-port*  "Warning: Run with id " run-id " was created after previous sync and deleted before the sync") #f)
           (if (handle-exceptions
 		        exn
 		        (begin (print-call-chain)
               (print ((condition-property-accessor 'exn 'message) exn))     
 			      #f)
-            (print "inserting") 
+            ;(print "inserting") 
             (pgdb:insert-run
 		     dbh
 		     spec-id target run-name state status owner event-time comment fail-count pass-count  area-id last-update))
 		       (let* ((smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))
              (if (or (not smallest-time) (< last-update smallest-time))
@@ -946,11 +946,11 @@
            (begin
 	   (if pgdb-test-id ;; have a record
 	     (begin ;; let ((key-name (conc run-id "/" test-name "/" item-path)))
 	       (debug:print-info 0 *default-log-port*  "Updating existing test with run-id: " run-id " and test-id: " test-id " pgdb run id: " pgdb-run-id "  pgdb-test-id "  pgdb-test-id)
          (let* ((pgdb-last-update (pgdb:get-test-last-update dbh pgdb-test-id)))
-         (if (and  (>  last-update pgdb-last-update) (or (not smallest-time) (< last-update smallest-time)))
+         (if (and  (>  last-update pgdb-last-update) (or (not smallest-time) (< last-update smallest-time))) ;;if last-update is same as pgdb-last-update then it is safe to assume the records are identical and we can use a larger last update time.
         (hash-table-set! smallest-last-update-time "smallest-time" last-update))) 
 	       (pgdb:update-test dbh pgdb-test-id pgdb-run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update))
 	     (begin 
            (debug:print-info 0 *default-log-port*  "Inserting test with run-id: " run-id " and test-id: " test-id  " pgdb run id: " pgdb-run-id)
            (pgdb:insert-test dbh pgdb-run-id test-name item-path state status host cpuload diskfree uname run-dir log-file run-duration comment event-time archived last-update)
@@ -1009,17 +1009,15 @@
 														 (args:get-arg "-runname")
 													#f)))
      (if (and target  (not run-name))
        (begin
 					(print "Error: Provide runname")
-          (exit 1))
-          (print target))
+          (exit 1)))
      (if (and (not target)  run-name)
        (begin
 					(print "Error: Provide target")
-          (exit 1))
-          (print run-name))
+          (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
@@ -1041,17 +1039,17 @@
             (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)))
 	      (begin
-                (print "syncing runs")   
+                (debug:print-info 0 *default-log-port*  "syncing runs")   
 	              (tasks:sync-run-data dbh cached-info run-ids area-info smallest-last-update-time) 
-                (print "syncing tests")
+                (debug:print-info 0 *default-log-port*  "syncing tests")
 		            (tasks:sync-tests-data dbh cached-info test-ids area-info smallest-last-update-time)
-                (print "syncing test steps")
+                (debug:print-info 0 *default-log-port*  "syncing test steps")
                 (tasks:sync-test-steps dbh cached-info test-step-ids smallest-last-update-time)
-								(print "syncing test data")
+								(debug:print-info 0 *default-log-port*  "syncing test data")
                 (tasks:sync-test-gen-data dbh cached-info test-data-ids smallest-last-update-time)
                 (print "----------done---------------")))
      (let*  ((smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))
      (print "smallest-time :" smallest-time  " last-sync-time " last-sync-time)
     (if (not (and target run-name))