Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	11 Mar 2002 16:42:07 -0000	1.9
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	20 May 2002 17:33:21 -0000	1.10
@@ -44,6 +44,12 @@
                 if {$hours < 12} {
                     incr hours 12
                 }
+            } else {
+                # This is the case where we're dealing with AM/PM
+                # The one issue we have to worry about is 12am
+                if {!$event_time_arr(ampm) && $hours == 12} {
+                    set hours 0
+                }
             }
         }