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 -N -r1.41.2.10 -r1.41.2.11
--- openacs-4/packages/calendar/www/cal-item-new.tcl	30 Mar 2022 16:40:24 -0000	1.41.2.10
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	20 Apr 2022 06:17:48 -0000	1.41.2.11
@@ -263,7 +263,7 @@
     # set edit_what $repeat_p
     if { !$repeat_p } {
         element set_properties cal_item edit_what -widget hidden
-        element set_value cal_item edit_what 0
+        element set_value cal_item edit_what this
     }
     set date       [calendar::from_sql_datetime -sql_date $ansi_start_date  -format "YYY-MM-DD"]
     set start_time [template::util::date::from_ansi $ansi_start_date [lc_get formbuilder_time_format]]