diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.ss index f3eab99..644a64c 100644 --- a/collects/net/uri-codec-unit.ss +++ b/collects/net/uri-codec-unit.ss @@ -175,8 +175,9 @@ [() (list)] [(#\% char1 char2 . rest) (cons - (vector-ref table - (string->number (string char1 char2) 16)) + ;; This used to consult the table again, but I think that's + ;; wrong. For exmaple %2b should produce +, not a space. + (string (integer->char (string->number (string char1 char2) 16))) (internal-decode rest))] [(char . rest) (cons