From 3a5a0e78676dcde5936c5e3d7a02c53170380f05 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Sat, 23 Feb 2002 17:14:48 +0000
Subject: [PATCH] Fix completely borked URI-ESCAPED-CHARS.

---
 uri.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/uri.scm b/uri.scm
index d46347e..7a0334e 100644
--- a/uri.scm
+++ b/uri.scm
@@ -153,8 +153,8 @@
 ;;; slashes and colons would be escaped.
 
 (define uri-escaped-chars
-  (char-set-union (char-set-complement char-set:letter+digit)
-				   (string->char-set "$-_@.&!*\"'(),+")))
+  (char-set-complement (char-set-union char-set:letter+digit
+				       (string->char-set "$-_@.&!*\"'(),+"))))
 
 ;;; Takes a set of chars to escape. This is because we sometimes need to
 ;;; escape larger sets of chars for different parts of a URI.