@@ -759,11 +759,11 @@
 	       (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 (and db-contour (not (equal? db-contour ""))  (string? db-contour )) 
                                            (begin 
-                                            (debug:print-info 1 *default-log-port*  "db-contour") 
+                                            (debug:print-info 10 *default-log-port*  "db-contour" db-contour) 
  						db-contour)
 					    (args:get-arg "-contour"))))
          (run-tag (if (args:get-arg "-run-tag")
                             (args:get-arg "-run-tag")
 									""))
@@ -788,11 +788,11 @@
         (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 publish-time)
-     (debug:print-info 0 *default-log-port* "Working on run-id " run-id " pgdb-id "  new-run-id )
+     (debug:print-info 4 *default-log-port* "Working on run-id " run-id " pgdb-id "  new-run-id )
      (if (not (equal? run-tag ""))
       (task:add-run-tag dbh new-run-id run-tag))
 		new-run-id) 
       
 	      (if (equal? state "deleted")
@@ -970,11 +970,11 @@
                                  (pgdb:get-test-id dbh pgdb-run-id test-name item-path))
                                  #f)))
 	 ;; "id"           "run_id"        "testname"  "state"      "status"      "event_time"
 	 ;; "host"         "cpuload"       "diskfree"  "uname"      "rundir"      "item_path"
 	 ;; "run_duration" "final_logf"    "comment"   "shortdir"   "attemptnum"  "archived"
-         (if (or (not (item-path)) (string-null? item-path))
+         (if (or (not item-path) (string-null? item-path))
              (debug:print-info 0 *default-log-port* "Working on Run id : " run-id "and test name : " test-name)) 
          (if pgdb-run-id
            (begin
 	   (if pgdb-test-id ;; have a record
 	     (begin ;; let ((key-name (conc run-id "/" test-name "/" item-path)))
@@ -1015,11 +1015,11 @@
 	   (pgdb:insert-area-tag  dbh   (vector-ref tag-info 0)  (vector-ref area-info 0))))))
 
 (define (tasks:sync-run-data dbh cached-info run-ids area-info smallest-last-update-time) 
   (for-each
      (lambda (run-id)
-      (debug:print-info 1 *default-log-port*   "Check if run with " run-id " needs to be synced" )
+      (debug:print-info 4 *default-log-port*   "Check if run with " run-id " needs to be synced" )
        (tasks:run-id->mtpg-run-id dbh cached-info run-id area-info smallest-last-update-time))
 run-ids))
 
 
 ;; get runs changed since last sync