Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -748,12 +748,14 @@
 	       (comment    (db:get-value-by-header row header "comment"))
 	       (fail-count (db:get-value-by-header row header "fail_count"))
 	       (pass-count (db:get-value-by-header row header "pass_count"))
                (db-contour (db:get-value-by-header row header "contour"))
 	       (contour    (if (args:get-arg "-prepend-contour") 
-                                 (if db-contour 
-                                            db-contour
+                                 (if (and db-contour (not (equal? db-contour ""))) 
+                                           (begin 
+                                            (print "db-contour") 
+ 						db-contour)
 					    (args:get-arg "-contour"))))
 	       (keytarg    (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
 	       			(conc "MT_CONTOUR/MT_AREA/" (string-intersperse (rmt:get-keys) "/")) (string-intersperse (rmt:get-keys) "/"))) ;; e.g. version/iteration/platform
 	       (target     (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target")) 
 	       			(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id)))                 ;; e.g. v1.63/a3e1/ubuntu
@@ -785,10 +787,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 )
   (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))
@@ -808,14 +811,14 @@
       (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)
+                    (print "Updating existing test-step with test-id: " test-id " and step-id " step-id " pgdb test id: " pgdb-test-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)
+ 		      (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))))
                 (hash-table-set! step-ht step-id pgdb-step-id ))
            (print "Error: Test not cashed")))
       (print "Error: Could not get test step info for step id " test-step-id ))))	;; this is a wierd senario need to debug      	
@@ -846,14 +849,14 @@
       (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)
+                    (print "Updating existing test-data with test-id: " test-id " and data-id " data-id " pgdb test id: " pgdb-test-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)
+ 		      (print "Inserting test-data with test-id: " test-id " and data-id " data-id " pgdb test id: " pgdb-test-id)
                       (pgdb:insert-test-data dbh pgdb-test-id category variable value expected tol units comment status type )
                       (set! pgdb-data-id  (pgdb:get-test-data-id dbh pgdb-test-id  category variable))))
                 (hash-table-set! data-ht data-id pgdb-data-id ))
              (begin
                  (print "Error: Test not in pgdb"))))
@@ -897,14 +900,14 @@
 	 ;; "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)
+	       (print "Updating existing test with run-id: " run-id " and test-id: " test-id " pgdb run id: " pgdb-run-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)
+                 (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))))
                (hash-table-set! test-ht test-id pgdb-test-id))
               (print "WARNING: Skipping run with run-id:" run-id ". This run was created after privious sync and removed before this sync."))))
      test-ids)))