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.21 -r1.21.2.1
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	7 Aug 2017 23:48:13 -0000	1.21
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	8 Jul 2022 15:46:02 -0000	1.21.2.1
@@ -115,19 +115,17 @@
     {-return_url {}}
     {-pretty_name}
 } {
-    Get both subscribe_url and unsubscribe_url as . 
-    At most one of them will be set.
+    Get both subscribe_url and unsubscribe_url as a list. At most one
+    of them will be set.
 
-    Example: <pre>
-    foreach { subscribe_url unsubscribe_url } \
-        [notification::display::get_urls \
+    Example:
+    <pre>
+    lassign [notification::display::get_urls \
              -type "my_notif_type" \
              -object_id $object_id \
-             -pretty_name $title] {}</pre>
+             -pretty_name $title] subscribe_url unsubscribe_url
+    </pre>
 
-    The above foreach trick will cause subscribe_url and unsubscribe_url 
-    to be set correctly. Don't forget the end pair of curly braces.
-
     @return a Tcl list with two elements (subscribe_url, unsubscribe_url)
 } {
     set root_path [apm_package_url_from_key [notification::package_key]]