diff --git a/collects/web-server/private/request.ss b/collects/web-server/private/request.ss index ef60a9628c..26efd49d5b 100644 --- a/collects/web-server/private/request.ss +++ b/collects/web-server/private/request.ss @@ -186,7 +186,10 @@ (let find-amp ([amp-end (add1 key-end)]) (if (or (= amp-end len) (eq? (bytes-ref raw amp-end) (char->integer #\&))) (list* (make-binding:form - (subbytes raw start key-end) + (string->bytes/utf-8 + (translate-escapes + (bytes->string/utf-8 + (subbytes raw start key-end)))) (string->bytes/utf-8 (translate-escapes (bytes->string/utf-8