@@ -34,13 +34,13 @@
 (define getenv get-environment-variable)
 (define (safe-setenv key val)
   (if (and (string? val)(string? key))
       (handle-exceptions
        exn
-       (debug:print 0 *default-log-port* "ERROR: bad value for setenv, key=" key ", value=" val)
+       (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)
        (setenv key val))
-      (debug:print 0 *default-log-port* "ERROR: bad value for setenv, key=" key ", value=" val)))
+      (debug:print-error 0 *default-log-port* "bad value for setenv, key=" key ", value=" val)))
 
 (define home (getenv "HOME"))
 (define user (getenv "USER"))
 
 ;; GLOBAL GLETCHES
@@ -274,11 +274,11 @@
   (handle-exceptions
    exn
    (handle-exceptions
     exn
     (begin
-      (debug:print 0 *default-log-port* "ERROR: received bad encoded string \"" instr "\", message: " ((condition-property-accessor 'exn 'message) exn))
+      (debug:print-error 0 *default-log-port* "received bad encoded string \"" instr "\", message: " ((condition-property-accessor 'exn 'message) exn))
       (print-call-chain (current-error-port))
       #f)
     (read (open-input-string (base64:base64-decode instr))))
    (read (open-input-string (z3:decode-buffer (base64:base64-decode instr))))))
 
@@ -417,11 +417,11 @@
       (thread-join! th1))))
 
 (define (std-signal-handler signum)
   ;; (signal-mask! signum)
   (set! *time-to-exit* #t)
-  (debug:print 0 *default-log-port* "ERROR: Received signal " signum " exiting promptly")
+  (debug:print-error 0 *default-log-port* "Received signal " signum " exiting promptly")
   ;; (std-exit-procedure) ;; shouldn't need this since we are exiting and it will be called anyway
   (exit))
 
 (set-signal-handler! signal/int  std-signal-handler)  ;; ^C
 (set-signal-handler! signal/term std-signal-handler)
@@ -546,11 +546,11 @@
 	(if split
 	    tlist
 	    target)
 	(if target
 	    (begin
-	      (debug:print 0 *default-log-port* "ERROR: Invalid target, spaces or blanks not allowed \"" target "\", target should be: " (string-intersperse keys "/") ", have " tlist " for elements")
+	      (debug:print-error 0 *default-log-port* "Invalid target, spaces or blanks not allowed \"" target "\", target should be: " (string-intersperse keys "/") ", have " tlist " for elements")
 	      #f)
 	    #f))))
 
 ;;======================================================================
 ;; M I S C   L I S T S
@@ -651,11 +651,11 @@
 
 (define (common:read-link-f path)
   (handle-exceptions
       exn
       (begin
-	(debug:print 0 *default-log-port* "ERROR: command \"/bin/readlink -f " path "\" failed.")
+	(debug:print-error 0 *default-log-port* "command \"/bin/readlink -f " path "\" failed.")
 	path) ;; just give up
     (with-input-from-pipe
 	(conc "/bin/readlink -f " path)
       (lambda ()
 	(read-line)))))
@@ -801,11 +801,11 @@
 	 (dbspace  (cadr spacedat))
 	 (required (caddr spacedat))
 	 (dbdir    (cadddr spacedat)))
     (if (not is-ok)
 	(begin
-	  (debug:print 0 *default-log-port* "ERROR: Insufficient space in " dbdir ", require " required ", have " dbspace  ", exiting now.")
+	  (debug:print-error 0 *default-log-port* "Insufficient space in " dbdir ", require " required ", have " dbspace  ", exiting now.")
 	  (exit 1)))))
   
 ;; paths is list of lists ((name path) ... )
 ;;
 (define (common:get-disk-with-most-free-space disks minsize)