diff --git a/src/main/messages.cl b/src/main/messages.cl
index 7609e88..7b3874c 100644
--- a/src/main/messages.cl
+++ b/src/main/messages.cl
@@ -343,7 +343,9 @@ used to call `reinitialize-instance'."))
 	 (stream (request-stream request)))
     (when length
       (let ((buffer (make-string length)))
-	(read-sequence buffer stream)
+	(do ((start 0))
+	    ((>= (incf start (read-sequence buffer stream :start start))
+		 length)))
 	(make-instance 'string-entity :content-length length
 		       :content-type (cdr (assoc "content-type" headers
 						 :test #'string-equal))