Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 6114)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 6115)
@@ -1906,5 +1906,5 @@
   (when (ioblock-pending-byte-order-mark ioblock)
     (setf (ioblock-pending-byte-order-mark ioblock) nil)
-    (%ioblock-write-u16-code-unit ioblock byte-order-mark))
+    (%ioblock-write-u16-code-unit ioblock byte-order-mark-char-code))
   (if (eq char #\linefeed)
     (setf (ioblock-charpos ioblock) 0)