Index: /trunk/ccl/level-1/l1-boot-2.lisp
===================================================================
--- /trunk/ccl/level-1/l1-boot-2.lisp	(revision 5243)
+++ /trunk/ccl/level-1/l1-boot-2.lisp	(revision 5244)
@@ -86,8 +86,9 @@
                                 :sharing :lock
                                 :direction :input
-                                :interactive (not *batch-flag*)))
-  (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock))
-
-  (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock))
+                                :interactive (not *batch-flag*)
+                                :encoding :utf-8))
+  (setq *stdout* (make-fd-stream 1 :basic t :direction :output :sharing :lock :encoding :utf-8))
+
+  (setq *stderr* (make-fd-stream 2 :basic t :direction :output :sharing :lock :encoding :utf-8))
   (if *batch-flag*
     (let* ((tty-fd (let* ((fd (fd-open "/dev/tty" #$O_RDWR)))
@@ -100,6 +101,7 @@
                                           :direction :input
                                           :interactive t
-                                          :sharing :lock)
-         *terminal-output* (make-fd-stream tty-fd :basic t :direction :output :sharing :lock)
+                                          :sharing :lock
+                                          :encoding :utf-8)
+         *terminal-output* (make-fd-stream tty-fd :basic t :direction :output :sharing :lock :encoding :utf-8)
          *terminal-io* (make-echoing-two-way-stream
                         *terminal-input* *terminal-output*))