diff --git a/request.zp b/request.zp
index 389526e..bafb18b 100644
--- a/request.zp
+++ b/request.zp
@@ -64,7 +64,9 @@
         (let loop ((recvd (net:recv sock BSIZE))
                    (bytes b{}))
           (if (or (falsy? (length recvd)) (string:ends-with (byte-vector->string recvd) "\r\n"))
-            (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers)
+            (begin
+              (net:close-socket sock)
+              (parse-request (byte-vector->string (++ bytes recvd)) scheme path req-headers))
             (loop (net:recv sock BSIZE) (++ bytes recvd))))))))
 
   (get (lambda (path . headers)