Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.39.2.4 -r1.39.2.5
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	28 Dec 2021 11:40:24 -0000	1.39.2.4
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	29 Aug 2022 14:17:25 -0000	1.39.2.5
@@ -392,7 +392,7 @@
         set user_id [ad_conn user_id]
     }
     calendar::get -calendar_id $calendar_id -array calendar
-    if { [template::util::is_true $calendar(private_p)] && $calendar(owner_id) == $user_id } {
+    if { [string is true -strict $calendar(private_p)] && $calendar(owner_id) == $user_id } {
         return 1
     } else {
         return 0