URI escape address annotations

2004-02-02 10:24:05 +00:00 · 2004-02-02 10:24:05 +00:00 · b65323b81b
parent ff5bca073d
commit b65323b81b
1 changed files with 1 additions and 1 deletions
--- 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)