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 -N -r1.38 -r1.39
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	8 Sep 2008 20:13:37 -0000	1.38
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	9 Nov 2008 23:29:22 -0000	1.39
@@ -138,8 +138,8 @@
     set start_time [lc_time_fmt $ansi_start_date "%X"]
     set end_time [lc_time_fmt $ansi_end_date "%X"]
 
-    set start_hour [format %.0f [lc_time_fmt $ansi_start_date "%H"]]
-    set end_hour [format %.0f [lc_time_fmt $ansi_end_date "%H"]]
+    scan [lc_time_fmt $ansi_start_date "%H"] %d start_hour 
+    scan [lc_time_fmt $ansi_end_date "%H"] %d end_hour 
 
     if { $start_hour < $adjusted_start_display_hour && \
              [string equal \