Fix bugs with browser responder.

Fix url>path so it doesn't double decode query parameters.

library/httpd/httpd.factor

@@ -12,11 +12,18 @@ stdio streams strings threads url-encoding ;
         drop stdio get
     ] ifte ;
 
-: url>path ( uri -- path )
+: (url>path) ( uri -- path )
     url-decode "http://" ?str-head [
         "/" split1 dup "" ? nip
     ] when ;
 
+: url>path ( uri -- path )
+    "?" split1 dup [
+      >r (url>path) "?" r> cat3
+    ] [
+      drop (url>path)
+    ] ifte ;
+
 : secure-path ( path -- path )
     ".." over str-contains? [ drop f ] when ;