Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -637,21 +637,21 @@
                                       (conc(pathname-file target-path) "." (pathname-extension target-path))
                                       (pathname-file target-path)))
                   (curr-dir (current-directory))   
                   (start-dir (conc (current-directory) "/" last-dir-name))
                   (execlude (make-exclude-pattern (string-split restrictions ",")))
-                   (tmpfile (conc "/tmp/" (current-user-name) "/my-pipe-" (current-process-id))))
+                   (tmpfile (conc "/tmp/my-pipe-" (current-process-id))))
                     (if  (file-exists? start-dir)
                     (begin
                          (sauth:print-error (conclast-dir-name " already exist in your work dir."))
                          (sauth:print-error  "Nothing has been retrieved!!  "))
                      (begin
                    ;    (sretrieve:do-as-calling-user
                    ; (lambda ()
-                    
-                  (if (not (file-exists?  (conc "/tmp/" (current-user-name)))) 
-		      (create-directory (conc "/tmp/" (current-user-name)) #t))
+                  ; (print tmpfile) 
+                  ;(if (not (file-exists?  (conc "/tmp/" (current-user-name)))) 
+		  ;    (create-directory (conc "/tmp/" (current-user-name)) #t))
                           (change-directory parent-dir)
                             (create-fifo  tmpfile)
                                   (process-fork 
     				   (lambda()
                                        (sleep 1) 

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -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