diff --git a/lib/chibi/show/color.scm b/lib/chibi/show/color.scm
index b21222d0..7a324e12 100644
--- a/lib/chibi/show/color.scm
+++ b/lib/chibi/show/color.scm
@@ -18,7 +18,7 @@
     (else "0")))
 
 (define (ansi-escape color)
-  (each (integer->char 27) "[" (color->ansi color) "m"))
+  (string-append (string (integer->char 27)) "[" (color->ansi color) "m"))
 
 (define (colored new-color . args)
   (fn (color)