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 -N -r1.21.2.1 -r1.21.2.2
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	8 Jul 2022 15:46:02 -0000	1.21.2.1
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	11 Jul 2022 08:07:50 -0000	1.21.2.2
@@ -114,6 +114,7 @@
     {-object_id:required}
     {-return_url {}}
     {-pretty_name}
+    -user_id
 } {
     Get both subscribe_url and unsubscribe_url as a list. At most one
     of them will be set.
@@ -139,7 +140,11 @@
     }
 
     # Check if subscribed
-    set request_id [notification::request::get_request_id -type_id $type_id -object_id $object_id -user_id [ad_conn untrusted_user_id]]
+    if {![info exists user_id]} {
+        set user_id [ad_conn untrusted_user_id]
+    }
+    set request_id [notification::request::get_request_id \
+                        -type_id $type_id -object_id $object_id -user_id $user_id]
 
 
     if { $request_id eq "" } {