From 13b9ef2d9d2d5ea198ac88eb3c6b565ea0d6b47f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 26 Sep 2006 14:01:24 +0000 Subject: [PATCH] fix svn: r4439 --- collects/web-server/private/request.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss index d522ba9f04..cbbdb6d6ca 100644 --- a/collects/web-server/private/request.ss +++ b/collects/web-server/private/request.ss @@ -188,11 +188,11 @@ (if (or (= amp-end len) (eq? (bytes-ref raw amp-end) (char->integer #\&))) (list* (make-binding:form (string->bytes/utf-8 - (uri-decode + (form-urlencoded-decode (bytes->string/utf-8 (subbytes raw start key-end)))) (string->bytes/utf-8 - (uri-decode + (form-urlencoded-decode (bytes->string/utf-8 (subbytes raw (add1 key-end) amp-end))))) (loop (add1 amp-end)))