@@ -255,11 +255,11 @@
 			  (current-process-id)
 			  (get-host-name))
   (let ((deadlist '()))
     (sqlite3:for-each-row
      (lambda (id pid host last-update delta)
-       (print "Going to delete stale record for monitor with pid " pid " on host " host " last updated " delta " seconds ago")
+       (debug:print 0 *default-log-port* "Going to delete stale record for monitor with pid " pid " on host " host " last updated " delta " seconds ago")
        (set! deadlist (cons id deadlist)))
      mdb 
      "SELECT id,pid,hostname,last_update,strftime('%s','now')-last_update AS delta FROM monitors WHERE delta > 700;")
     (sqlite3:execute mdb (conc "DELETE FROM monitors WHERE id IN ('" (string-intersperse (map conc deadlist) "','") "');")))
   )
@@ -266,11 +266,11 @@
 (define (tasks:register-monitor db port)
   (let* ((pid (current-process-id))
 	 (hostname (get-host-name))
 	 (userinfo (user-information (current-user-id)))
 	 (username (car userinfo)))
-    (print "Register monitor, pid: " pid ", hostname: " hostname ", port: " port ", username: " username)
+    (debug:print 0 *default-log-port* "Register monitor, pid: " pid ", hostname: " hostname ", port: " port ", username: " username)
     (sqlite3:execute db "INSERT INTO monitors (pid,start_time,last_update,hostname,username) VALUES (?,strftime('%s','now'),strftime('%s','now'),?,?);"
 		     pid hostname username)))
 
 (define (tasks:get-num-alive-monitors mdb)
   (let ((res 0))
@@ -664,11 +664,11 @@
                         "%"))
  
            (run-times  (rmt:get-run-times  run-patt target-patt )))
    (if (eq? (length run-times) 0)
      (begin
-       (print "Data not found!!")
+       (debug:print 0 *default-log-port* "Data not found!!")
        (exit)))
    (if (equal? (args:get-arg "-dumpmode") "json")
        (task:print-runtime-as-json run-times)
          (if (equal? (args:get-arg "-dumpmode") "csv")
 	     (task:print-runtime run-times ",")
@@ -710,28 +710,28 @@
                         #f))
  
            (test-times  (rmt:get-test-times  runname target )))
    (if (not runname)
       (begin
-      (print "Error: Missing argument -runname")
+      (debug:print 0 *default-log-port* "Error: Missing argument -runname")
       (exit))) 
     (if (string-contains runname "%")
       (begin
-      (print "Error: Invalid runname, '%' not allowed  (" runname ") ")
+      (debug:print 0 *default-log-port* "Error: Invalid runname, '%' not allowed  (" runname ") ")
       (exit)))
     (if (not target)
       (begin
-      (print "Error: Missing argument -target")
+      (debug:print 0 *default-log-port* "Error: Missing argument -target")
       (exit)))
      (if  (string-contains target "%")
       (begin
-      (print "Error: Invalid target, '%' not allowed  (" target ") ")
+      (debug:print 0 *default-log-port* "Error: Invalid target, '%' not allowed  (" target ") ")
       (exit)))
  
    (if (eq? (length test-times) 0)
      (begin
-       (print "Data not found!!")
+       (debug:print 0 *default-log-port* "Data not found!!")
        (exit)))
    (if (equal? (args:get-arg "-dumpmode") "json")
        (task:print-testtime-as-json test-times)
          (if (equal? (args:get-arg "-dumpmode") "csv")
 	     (task:print-testtime test-times ",")
@@ -801,11 +801,11 @@
           (begin 
           (debug:print-info 1 *default-log-port*  "Warning: Run with id " run-id " was created after previous sync and deleted before the sync") #f)
           (if (handle-exceptions
 		        exn
 		        (begin (print-call-chain)
-              (print ((condition-property-accessor 'exn 'message) exn))     
+              (debug:print 0 *default-log-port* ((condition-property-accessor 'exn 'message) exn))     
 			      #f)
             
             (pgdb:insert-run
 		     dbh
 		     spec-id target run-name state status owner event-time comment fail-count pass-count  area-id last-update publish-time))
@@ -928,11 +928,11 @@
                     (begin
  		      (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))     
+                              (debug:print 0 *default-log-port* ((condition-property-accessor 'exn 'message) exn))     
 			#f)
                      
                     (pgdb:insert-test-data dbh pgdb-test-id category variable value expected tol units comment status type last-update))
 		       ;(tasks:run-id->mtpg-run-id dbh cached-info run-id area-info)
                       (begin
@@ -1041,11 +1041,11 @@
 ;; get runs changed since last sync
 ;; (define (tasks:sync-test-data dbh cached-info area-info)
 ;;   (let* ((
 
 (define (tasks:sync-to-postgres configdat dest)
-  (print "In sync")
+  ;; (print "In sync")
   (let* ((dbh         (pgdb:open configdat dbname: dest))
 	 (area-info   (pgdb:get-area-by-path dbh *toppath*))
 	 (cached-info (make-hash-table))
 	 (start       (current-seconds))
          (test-patt   (if (args:get-arg "-testpatt")
@@ -1057,15 +1057,15 @@
          (run-name   (if (args:get-arg "-runname")
 		     (args:get-arg "-runname")
 		     #f)))
      (if (and target  (not run-name))
        (begin
-	  (print "Error: Provide runname")
+	  (debug:print 0 *default-log-port* "Error: Provide runname")
           (exit 1)))
      (if (and (not target)  run-name)
        (begin
-	  (print "Error: Provide target")
+	  (debug:print 0 *default-log-port* "Error: Provide target")
           (exit 1)))
     ;(print "123")
     ;(exit 1)
     (for-each (lambda (dtype)
 		(hash-table-set! cached-info dtype (make-hash-table)))