Index: openacs-4/packages/caldav/tcl/caldav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/caldav/tcl/Attic/caldav-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/caldav/tcl/caldav-procs.tcl	25 Jun 2022 12:06:17 -0000	1.1.2.2
+++ openacs-4/packages/caldav/tcl/caldav-procs.tcl	5 Jul 2022 11:49:38 -0000	1.1.2.3
@@ -85,7 +85,7 @@
                                   ::xo::dc list -prepare integer cal {
                                       select calendar_id from calendars
                                       where package_id = :main_calendar_package_id
-                                      and private_p = 'f';
+                                      and private_p = 'f'
                                   }]
         } else {
             set calendar_ids {}