Index: /trunk/ccl/level-1/l1-unicode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-unicode.lisp	(revision 6112)
+++ /trunk/ccl/level-1/l1-unicode.lisp	(revision 6113)
@@ -3028,5 +3028,5 @@
       (progn
         (funcall write-function stream (logior #xd800 (the fixnum (ash highbits -10))))
-        (funcall write-function (logior #xdc00 (the fixnum (logand highbits #x3ff))))
+        (funcall write-function stream (logior #xdc00 (the fixnum (logand highbits #x3ff))))
         2))))
 
@@ -3649,5 +3649,5 @@
   #+big-endian-target :utf-16le
   #+little-endian-target :utf-16be
-  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff fe)
+  :bom-encoding #+big-endian-target #(#xfe #xff) #+little-endian-target #(#xff #xfe)
   )