From 18cf27ac40a67bfabd48b82e1c1b237cdf4b6b4f Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 21 Jun 2006 19:36:00 +0000 Subject: [PATCH] hod-0618 svn: r3431 --- collects/web-server/private/request.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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