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.16 -r1.41.2.17
--- openacs-4/packages/calendar/www/cal-item-new.tcl	9 Feb 2023 15:22:43 -0000	1.41.2.16
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	28 Feb 2023 09:28:40 -0000	1.41.2.17
@@ -172,6 +172,8 @@
 
     set repeat_p 0
 
+    set time_p [expr {$start_time ne ""}]
+
     if {$start_time ne "" && $end_time eq ""} {
         # Default end_time is one hour after start_time
         set end_time [clock format [clock add [clock scan $start_time -format {%H:%M}] 1 hour] -format {%H:%M}]