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.22.2.3 -r1.22.2.4
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	25 Nov 2003 00:07:19 -0000	1.22.2.3
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	10 Feb 2004 22:00:53 -0000	1.22.2.4
@@ -120,8 +120,8 @@
     set start_time [lc_time_fmt $ansi_start_date "%X"]
     set end_time [lc_time_fmt $ansi_end_date "%X"]
 
-    regexp {([1-9][0-9]*)} $start_hour match start_hour_no
-    regexp {([1-9][0-9]*)} $end_hour match end_hour_no
+    regexp {([0-9][0-9]*)} $start_hour match start_hour_no
+    regexp {([0-9][0-9]*)} $end_hour match end_hour_no
 
     for { set item_current_hour $start_hour } { $item_current_hour < $end_hour } { incr item_current_hour } {
         set item_current_hour [expr [string trimleft $item_current_hour 0]+0]