@@ -25,11 +25,11 @@
 
 ;; wait up to aprox n seconds for a journal to go away
 ;;
 (define (tasks:wait-on-journal path n #!key (remove #f)(waiting-msg #f))
   (if (not (string? path))
-      (debug:print 0 *default-log-port* "ERROR: Called tasks:wait-on-journal with path=" path " (not a string)")
+      (debug:print-error 0 *default-log-port* "Called tasks:wait-on-journal with path=" path " (not a string)")
       (let ((fullpath (conc path "-journal")))
 	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain (current-error-port))
@@ -59,11 +59,11 @@
 		    (configf:lookup *configdat* "setup" "dbdir")
 		    (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))))
     (handle-exceptions
      exn
      (begin
-       (debug:print 0 *default-log-port* "ERROR: Couldn't create path to " dbdir)
+       (debug:print-error 0 *default-log-port* "Couldn't create path to " dbdir)
        (exit 1))
      (if (not (directory? dbdir))(create-directory dbdir #t)))
     dbdir))
 
 ;; If file exists AND
@@ -286,11 +286,11 @@
 	    port))))))
 
 (define (tasks:server-am-i-the-server? mdb run-id)
   (let* ((all    (tasks:server-get-servers-vying-for-run-id mdb run-id))
 	 (first  (if (null? all)
-		     #f;; (begin (debug:print 0 *default-log-port* "ERROR: no servers listed, should be at least one by now.") 
+		     #f;; (begin (debug:print-error 0 *default-log-port* "no servers listed, should be at least one by now.") 
 		       ;;      (sqlite3:finalize! mdb)
 		       ;;      (exit 1))
 		     (car (db:get-rows all)))))
     (if first
 	(let* ((header   (db:get-header all))
@@ -778,11 +778,11 @@
 		     (setenv "TARGETHOST_LOGF" "server-kills.log")
 		     (system (conc "nbfake kill " pid))
 		     (if old-targethost (setenv "TARGETHOST" old-targethost))
 		     (unsetenv "TARGETHOST")
 		     (unsetenv "TARGETHOST_LOGF"))))
-	     (debug:print 0 *default-log-port* "ERROR: no record or improper record for " target "/" run-name " in tasks_queue in main.db"))))
+	     (debug:print-error 0 *default-log-port* "no record or improper record for " target "/" run-name " in tasks_queue in main.db"))))
      records)))
 
 ;; (define (tasks:start-run dbstruct mdb task)
 ;;   (let ((flags (make-hash-table)))
 ;;     (hash-table-set! flags "-rerun" "NOT_STARTED")