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.9 -r1.10
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	11 Mar 2002 16:42:00 -0000	1.9
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	14 Mar 2002 04:58:41 -0000	1.10
@@ -208,12 +208,14 @@
                 # One ugly hack
                 set end_time_lst [split [lindex $one_item_val 1] ":"]
 
-                if {[lindex $end_time_lst 1] == 0} {
+                if {[string range [lindex $end_time_lst 1] 0 1] == "00"} {
                     set end_time [expr [string trimleft [lindex $end_time_lst 0] 0] - 1]
                 } else {
-                    set end_time [lindex $end_time_lst 1]
+                    set end_time [lindex $end_time_lst 0]
                 }
 
+                ns_log Notice "$end_time_lst / $end_time / $start_time"
+
                 set start_time $hour
                 append return_html "<td valign=top bgcolor=white rowspan=[expr $end_time - $start_time + 1]><font size=-1>[lindex $one_item_val 2]</font></td>"
             } else {