Use faster write-char when transcribing chars.

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index e5346c4337d27e012b7d9ebcbf43570c2d3d68bf..8c564e47ab50aba40bb142d0b6a06339f9317413 100644 (file)
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -594,7 +594,7 @@ USA.
 (define (transcribe-char char port)
   (let ((tport (port/transcript port)))
     (if tport
-       (write-char char tport))))
+       (%write-char char tport))))
 
 (define (transcribe-substring string start end port)
   (let ((tport (port/transcript port)))