From 2d49df701d90bb9d890b93ea24d8bacb9f548e0d Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 11 Nov 2006 06:41:17 +0000 Subject: [PATCH] up svn: r4825 --- collects/web-server/private/request.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss index aeee1aa9ad..af1a4ff081 100644 --- a/collects/web-server/private/request.ss +++ b/collects/web-server/private/request.ss @@ -177,7 +177,7 @@ (network-error 'read-bindings "Post request contained a non-numeric content-length")])] [#f (let ([raw-bytes (apply bytes-append (read-to-eof in))]) - (parse-bindings raw-bytes))])])] + (values (parse-bindings raw-bytes) raw-bytes))])])] [meth (values empty #f)]))