Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -860,17 +860,17 @@
       (begin  
         (if pgdb-test-id
            (begin 
                 (if  pgdb-step-id
                    (begin
-                    (debug:print-info 1 *default-log-port*  "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 )
+                    (debug:print-info 4 *default-log-port*  "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 )
 										(let* ((pgdb-last-update (pgdb:get-test-step-last-update dbh pgdb-step-id)))
          (if (and  (> last-update pgdb-last-update) (or (not smallest-time) (< last-update smallest-time)))
         (hash-table-set! smallest-last-update-time "smallest-time" last-update))) 
                     (pgdb:update-test-step dbh pgdb-step-id pgdb-test-id stepname state status event_time comment logfile last-update))
                     (begin
- 		      (debug:print-info 1 *default-log-port*  "Inserting test-step with test-id: " test-id " and step-id " step-id  " pgdb test id: " pgdb-test-id)
+ 		      (debug:print-info 4 *default-log-port*  "Inserting test-step with test-id: " test-id " and step-id " step-id  " pgdb test id: " pgdb-test-id)
                      (if (or (not smallest-time) (< last-update smallest-time))
         				      (hash-table-set! smallest-last-update-time "smallest-time" last-update))
                       (pgdb:insert-test-step dbh pgdb-test-id stepname state status event_time comment logfile last-update )
                       (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 ))
@@ -906,17 +906,17 @@
       (begin
         (if pgdb-test-id
            (begin 
                 (if  pgdb-data-id
                    (begin
-                    (debug:print-info 1 *default-log-port*  "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)
+                    (debug:print-info 4 *default-log-port*  "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)
                     (let* ((pgdb-last-update (pgdb:get-test-data-last-update dbh pgdb-data-id)))
          (if (and  (>  last-update pgdb-last-update) (or (not smallest-time) (< last-update smallest-time)))
         (hash-table-set! smallest-last-update-time "smallest-time" last-update))) 
                     (pgdb:update-test-data dbh pgdb-data-id pgdb-test-id  category variable value expected tol units comment status type last-update))
                     (begin
- 		      (debug:print-info 1 *default-log-port*  "Inserting test-data with test-id: " test-id " and data-id " data-id " pgdb test id: " pgdb-test-id)
+ 		      (debug:print-info 4 *default-log-port*  "Inserting test-data with test-id: " test-id " and data-id " data-id " pgdb test id: " pgdb-test-id)
                        (if (handle-exceptions
 		      exn
 		      (begin (print-call-chain)
                               (print ((condition-property-accessor 'exn 'message) exn))     
 			#f)
@@ -974,17 +974,17 @@
 	 ;; "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)))
-	       (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)
+	       (debug:print-info 4 *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 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 pid))
 	     (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)
+           (debug:print-info 4 *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 pid)
             (if (or (not smallest-time) (< last-update smallest-time))
         				(hash-table-set! smallest-last-update-time "smallest-time" last-update))
            (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))