@@ -796,11 +796,11 @@
 		       (tasks:run-id->mtpg-run-id dbh cached-info run-id area-info)
 		  #f)))))))
 
 
 (define (tasks:sync-test-steps dbh cached-info test-step-ids)
-  (print "Sync Steps " test-step-ids )
+ ; (print "Sync Steps " test-step-ids )
   (let ((test-ht (hash-table-ref cached-info 'tests))
         (step-ht (hash-table-ref cached-info 'steps)))
     (for-each
      (lambda (test-step-id)
         (let* ((test-step-info  (rmt:get-steps-info-by-id test-step-id))
@@ -820,11 +820,11 @@
       (begin  
         (if pgdb-test-id
            (begin 
                 (if  pgdb-step-id
                    (begin
-                    (print "Updating existing test-step with test-id: " test-id " and step-id " step-id " pgdb test id: " pgdb-test-id )
+                    (print "Updating existing test-step with test-id: " test-id " and step-id " step-id " pgdb test id: " pgdb-test-id " pgdb step id " pgdb-step-id )
                     (pgdb:update-test-step dbh pgdb-step-id pgdb-test-id stepname state status event_time comment logfile))
                     (begin
  		      (print "Inserting test-step with test-id: " test-id " and step-id " step-id  " pgdb test id: " pgdb-test-id)
                       (pgdb:insert-test-step dbh pgdb-test-id stepname state status event_time comment logfile )
                       (set! pgdb-step-id  (pgdb:get-test-step-id dbh pgdb-test-id stepname state))))
@@ -858,11 +858,11 @@
       (begin
         (if pgdb-test-id
            (begin 
                 (if  pgdb-data-id
                    (begin
-                    (print "Updating existing test-data with test-id: " test-id " and  data-id " data-id " pgdb test id: " pgdb-test-id)
+                    (print "Updating existing test-data with test-id: " test-id " and  data-id " data-id " pgdb test id: " pgdb-test-id " pgdb data id " pgdb-data-id)
                     (pgdb:update-test-data dbh pgdb-data-id pgdb-test-id  category variable value expected tol units comment status type))
                     (begin
  		      (print "Inserting test-data with test-id: " test-id " and data-id " data-id " pgdb test id: " pgdb-test-id)
                        (if (handle-exceptions
 		      exn
@@ -919,11 +919,11 @@
 	 ;; "run_duration" "final_logf"    "comment"   "shortdir"   "attemptnum"  "archived"
          (if pgdb-run-id
            (begin
 	   (if pgdb-test-id ;; have a record
 	     (begin ;; let ((key-name (conc run-id "/" test-name "/" item-path)))
-	       (print "Updating existing test with run-id: " run-id " and test-id: " test-id " pgdb run id: " pgdb-run-id)
+	       (print "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)
 	       (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))
 	     (begin 
                  (print "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)
                 (set! pgdb-test-id (pgdb:get-test-id dbh pgdb-run-id test-name item-path))))
@@ -974,11 +974,15 @@
 	       (test-data-ids  (alist-ref 'test_data  changed))
 	       (run-stat-ids   (alist-ref 'run_stats  changed))
                (area-tag    (if (args:get-arg "-area-tag") 
                                  (args:get-arg "-area-tag")
                                   "")))
-	 ; (print "area-info: " area-info)
+     ;(print "last-sync-time " last-sync-time)
+  
+	  ;(print "test-ids: " test-ids)
+    ;(print "--------------------------------------")
+    ;(print "run-ids: " run-ids)  
            (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 (not (null? test-ids))