@@ -63,9 +63,9 @@
    exn
    (begin
      (print-call-chain (current-error-port))
      (with-output-to-port (current-error-port)
        (lambda ()
-	 (print ((condition-property-accessor 'exn 'message) exn))
-	 (print "Callback error in " procname)
-	 (print "Full condition info:\n" (condition->list exn)))))
+	 (debug:print 0 *default-log-port* ((condition-property-accessor 'exn 'message) exn))
+	 (debug:print 0 *default-log-port* "Callback error in " procname)
+	 (debug:print 0 *default-log-port* "Full condition info:\n" (condition->list exn)))))
    (proc)))