Index: /trunk/source/lib/misc.lisp
===================================================================
--- /trunk/source/lib/misc.lisp	(revision 13499)
+++ /trunk/source/lib/misc.lisp	(revision 13500)
@@ -1307,5 +1307,5 @@
 
   
-;;; Octets between START and N encode an unsigned integer in big-endian
+;;; Octets between START and END encode an unsigned integer in big-endian
 ;;; byte order.
 (defun parse-unsigned-integer (vector &optional (start 0) end)
@@ -1316,5 +1316,5 @@
           (declare (fixnum offset))
           (unless (typep data '(simple-array (unsigned-byte 8) (*)))
-            (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
+            (report-bad-arg vector '(vector (unsigned-byte 8))))
           (incf start offset)
           (incf end offset)
@@ -1384,5 +1384,5 @@
         (declare (fixnum offset))
         (unless (typep data '(simple-array (unsigned-byte 8) (*)))
-          (report-bad-arg vector '(simple-array (unsigned-byte 8) (*))))
+          (report-bad-arg vector '(vector (unsigned-byte 8))))
         (incf start offset)
         (incf end offset)