From b65323b81bf9bb84b7fcc90ad622a00adaca9c7e Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 2 Feb 2004 10:24:05 +0000
Subject: [PATCH] URI escape address annotations

---
 scheme/httpd/surflets/addresses.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/surflets/addresses.scm b/scheme/httpd/surflets/addresses.scm
index 4f68406..68d6cb8 100644
--- a/scheme/httpd/surflets/addresses.scm
+++ b/scheme/httpd/surflets/addresses.scm
@@ -55,7 +55,7 @@
 	     (<= (length annotation) 1))
 	(let ((index (if (null? annotation)
 			 (address-add-annotation! address "")
-			 (address-add-annotation! address (car annotation)))))
+			 (address-add-annotation! address (escape-uri (car annotation))))))
 	  (string-append message "?" (address-name address)
 			 "=" index)))
        ((eq? message 'address)