Index: openacs-4/packages/calendar/www/view-one-day-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-one-day-display.tcl,v
diff -u -r1.46 -r1.46.2.1
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	23 Apr 2018 12:42:01 -0000	1.46
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	30 Jan 2023 17:38:11 -0000	1.46.2.1
@@ -226,17 +226,21 @@
 set grid_start $adjusted_start_display_hour
 set grid_first_hour [lc_time_fmt "$current_date $grid_start:00:00" "%X"]
 set grid_hour $grid_start
+set start_time [ad_pad -left $grid_hour 2 0]:00
 set grid_first_add_url [export_vars -base ${calendar_url}cal-item-new {
-    {date $current_date} {start_time $grid_hour} return_url
+    {date $current_date} start_time return_url
 }]
 
 incr grid_start
 
 multirow create grid hour add_url
 for { set grid_hour $grid_start } { $grid_hour <= $adjusted_end_display_hour } { incr grid_hour } {
     set localized_grid_hour [lc_time_fmt "$current_date $grid_hour:00:00" "%X"]
+    set start_time [ad_pad -left $grid_hour 2 0]:00
     multirow append grid $localized_grid_hour \
-        [export_vars -base ${calendar_url}cal-item-new {{date $current_date} {start_time $grid_hour} return_url}]
+        [export_vars -base ${calendar_url}cal-item-new {
+            {date $current_date} start_time return_url
+        }]
 }
 
 if { [info exists export] && $export eq "print" } {