Index: openacs-4/packages/notifications/tcl/notification-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-display-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	29 Jan 2004 13:04:37 -0000	1.13
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	2 Feb 2005 23:27:21 -0000	1.14
@@ -39,11 +39,11 @@
     set request_id [notification::request::get_request_id -type_id $type_id -object_id $object_id -user_id $user_id]
     
     if {![empty_string_p $request_id]} {
-        set sub_url [unsubscribe_url -request_id $request_id -url $url]
+        set sub_url [ad_quotehtml [unsubscribe_url -request_id $request_id -url $url]]
         set pretty_name [ad_quotehtml $pretty_name]
         set sub_chunk "[_ notifications.lt_You_have_requested_no]"
     } else {
-        set sub_url [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]
+        set sub_url [ad_quotehtml [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]]
         set pretty_name [ad_quotehtml $pretty_name]
         set sub_chunk "[_ notifications.lt_You_may_a_hrefsub_url]"
     }