Index: /branches/ide-1.0/ccl/level-1/l1-unicode.lisp
===================================================================
--- /branches/ide-1.0/ccl/level-1/l1-unicode.lisp	(revision 6583)
+++ /branches/ide-1.0/ccl/level-1/l1-unicode.lisp	(revision 6584)
@@ -4631,5 +4631,5 @@
 (defun cstring-encoded-length-in-bytes (encoding string start end)
   (+ (ash (character-encoding-code-unit-size encoding) -3) ; NUL terminator
-     (string-encoded-length-in-bytes string start end)))
+     (string-encoded-length-in-bytes encoding string start end)))