fix

svn: r4439
2006-09-26 14:01:24 +00:00 · 2006-09-26 14:01:24 +00:00 · 13b9ef2d9d
commit 13b9ef2d9d
parent 79a6945f54
1 changed files with 2 additions and 2 deletions
--- 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)))