diff --git a/1991.fs b/1991.fs
index 8ea2273..d8602f2 100644
--- a/1991.fs
+++ b/1991.fs
@@ -347,11 +347,17 @@ s" image/x-icon" filetype: ico
         0
     then ;
 
+: substring-to-end ( index c-addr u -- c-addr u )
+    rot dup rot swap - rot rot + swap ;
+
 : read-request-body ( socket u -- )
     \ Takes the socket and the length of the
     \ body (Content-Length).
-    here swap aligned read-socket
-    set-request-body ;
+    2over swap drop swap -
+    2over substring-to-end
+    set-request-body
+    drop ;
+
 : read-request ( socket -- addr u )
     \ Returns the request header
     \ but also collects the request body.