Index: /trunk/ccl/level-1/l1-unicode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-unicode.lisp	(revision 6553)
+++ /trunk/ccl/level-1/l1-unicode.lisp	(revision 6554)
@@ -81,5 +81,5 @@
   length-of-vector-encoding-function    ;(VECTOR START END) 
 
-  ;; Returns the number of (full) characters encoded in memort at (+ POINTER START)
+  ;; Returns the number of (full) characters encoded in memory at (+ POINTER START)
   ;; and the number of octets used to encode them.  (The second value may be less
   ;; than NOCTETS.)
@@ -4362,8 +4362,5 @@
    (lambda (string pointer idx start end)
      (declare (fixnum idx))
-     (when (> end start)
-       (setf (%get-unsigned-long pointer idx)
-             byte-order-mark-char-code)
-       (incf idx 4))
+
      (do* ((i start (1+ i)))
           ((>= i end) idx)