Index: utf8.scm
===================================================================
--- utf8.scm	(revision 22308)
+++ utf8.scm	(working copy)
@@ -460,7 +460,7 @@
               (to-vec
                (and to (if (char? to) (vector to) (string->vector to)))))
           (let ((trans
-                 (if to-vec (lambda (i) (display (vector-ref to-vec i))) noop)))
+                 (if to-vec (lambda (i) (display (vector-ref to-vec i))) void)))
             (with-output-to-string
               (lambda ()
                 (let ((end (sp-last str)))