Fix some logging messages

1 files changed, 7 insertions, 4 deletions

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 9aee736..1401ac8 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -935,7 +935,7 @@ References: ~a~%"
             (lambda (key . args)
               (simple-format
                (current-error-port)
-               "~A thread pool, exception when handling job: ~A ~A\n"
+               "~A work queue, exception when handling job: ~A ~A\n"
                name key args)
               (backtrace))))
         #:unwind? #t))
@@ -1100,9 +1100,12 @@ References: ~a~%"
                   #f)
               (lambda ()
                 ;; Logging may raise an exception, so try and just keep going.
-                (simple-format (current-error-port)
-                               "~A thread pool, job raised exception ~A: ~A\n"
-                               name job-args exn))
+                (display
+                 (simple-format
+                  #f
+                  "~A thread pool, job raised exception ~A: ~A\n"
+                  name job-args exn)
+                 (current-error-port)))
               #:unwind? #t))
         (lambda ()
           (apply proc job-args))