Index: /trunk/source/level-1/l1-unicode.lisp
===================================================================
--- /trunk/source/level-1/l1-unicode.lisp	(revision 8394)
+++ /trunk/source/level-1/l1-unicode.lisp	(revision 8395)
@@ -4718,5 +4718,5 @@
 (defun %count-characters-in-octet-vector (vector start end encoding)
   (unless (= (typecode vector) target::subtag-u8-vector)
-    (report-bad-arg vector '(simple-array (unsgigned-byte 8) (*))))
+    (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
   (funcall (character-encoding-length-of-vector-encoding-function encoding)
            vector