diff --git a/scheme/httpd/surflets/addresses.scm b/scheme/httpd/surflets/addresses.scm index 68d6cb8..4f68406 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 (escape-uri (car annotation)))))) + (address-add-annotation! address (car annotation))))) (string-append message "?" (address-name address) "=" index))) ((eq? message 'address)