Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.41.2.14 -r1.41.2.15
--- openacs-4/packages/calendar/www/cal-item-new.tcl	27 Jan 2023 13:12:41 -0000	1.41.2.14
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	27 Jan 2023 13:14:22 -0000	1.41.2.15
@@ -171,6 +171,7 @@
         set end_time [clock format [clock add [clock scan $start_time -format {%H:%M}] 1 hour] -format {%H:%M}]
     }
 
+    # set the calendar_id before setting item_types form element (see top of script) DAVEB
     set calendar_id [lindex $calendar_options 0 1]
 
 } -edit_request {