From 932e098f4e66e7739565c9ca698e54229208d605 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 6 Sep 2004 19:07:47 +0000
Subject: [PATCH] fixed decoding of %2b

original commit: 11907fb4999aa16023356f0f7eb697290f8acfd0
---
 collects/net/uri-codec-unit.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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