Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -r1.46.2.2 -r1.46.2.3
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	22 Feb 2021 18:26:44 -0000	1.46.2.2
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	28 Dec 2021 14:49:49 -0000	1.46.2.3
@@ -478,8 +478,7 @@
     set flip 0
 
     # Loop through the events, and add them
-    for {set i 0} {$i < [ns_set size $calendar_details]} {incr i} {
-        set item [ns_set value $calendar_details $i]
+    foreach item [ns_set values $calendar_details] {
         lassign $item date start_time end_time weekday item_type item_details
 
         # Adjust the display of no-time items