Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	11 Feb 2002 20:39:48 -0000	1.6
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	6 Mar 2002 00:20:36 -0000	1.7
@@ -130,6 +130,7 @@
 
     # The items that have no hour
     set hour ""
+    set next_hour ""
     set start_time ""
     set display_hour "No Time"
     append return_html "<tr bgcolor=white><td width=70><font size=-1>&nbsp;[subst $hour_template]</font></td>"
@@ -153,6 +154,8 @@
 
     for {set hour $start_hour} {$hour <= $end_hour} {incr hour} {
 
+        set next_hour [expr $hour + 1]
+
         if {$hour < 10} {
             set index_hour "0$hour"
         } else {