Index: openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl,v
diff -u -N -r1.8.2.12 -r1.8.2.13
--- openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl	15 Feb 2023 15:20:45 -0000	1.8.2.12
+++ openacs-4/packages/calendar/tcl/test/cal-item-procs.tcl	20 Feb 2023 09:55:16 -0000	1.8.2.13
@@ -284,13 +284,13 @@
         aa_log "Revoking permission on user"
         permission::revoke -object_id $calendar_id_3 -party_id $another_user -privilege calendar_read
 
-        aa_false "User '$another_user' has no 'calendar_read' permission on calendar '$calendar_id'" \
-            [permission::permission_p -party_id $another_user -object_id $calendar_id -privilege calendar_read]
+        aa_false "User '$another_user' has no 'calendar_read' permission on calendar '$calendar_id_3'" \
+            [permission::permission_p -party_id $another_user -object_id $calendar_id_3 -privilege calendar_read]
         aa_false "The public has no 'calendar_read' permission on calendar '$calendar_id'" \
-            [permission::permission_p -party_id [acs_magic_object "the_public"] -object_id $calendar_id -privilege calendar_read]
+            [permission::permission_p -party_id [acs_magic_object "the_public"] -object_id $calendar_id_3 -privilege calendar_read]
 
         aa_log "Assign permission to the public"
-        permission::grant -object_id $calendar_id -party_id [acs_magic_object "the_public"] -privilege $cal_privilege
+        permission::grant -object_id $calendar_id -party_id [acs_magic_object "the_public"] -privilege calendar_read
 
         set cache_p [parameter::get -package_id [ad_acs_kernel_id] -parameter PermissionCacheP -default 0]
         if { $cache_p } {