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.8 -r1.9
--- openacs-4/packages/calendar/www/view-one-day-display.tcl	17 Aug 2003 01:46:10 -0000	1.8
+++ openacs-4/packages/calendar/www/view-one-day-display.tcl	17 Aug 2003 18:08:16 -0000	1.9
@@ -55,7 +55,8 @@
     set end_time [lc_time_fmt $ansi_end_date "%H:%M"]
 
     for { set item_current_hour $start_hour } { $item_current_hour < $end_hour } { incr item_current_hour } {
-        if {$start_hour == $item_current_hour $$ start_hour >= $start_display_hour } {
+	set item_current_hour [expr int($item_current_hour)]
+        if {$start_hour == $item_current_hour && $start_hour >= $start_display_hour } {
             lappend day_items_per_hour [list $item_current_hour $name $item_id $calendar_name $status_summary $start_hour $end_hour $start_time $end_time]
         } elseif { $end_hour <= $end_display_hour } {
             lappend day_items_per_hour [list $item_current_hour "" $item_id $calendar_name $status_summary $start_hour $end_hour $start_time $end_time]