Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar/www/view-list-display.tcl	13 Aug 2003 16:08:33 -0000	1.5
+++ openacs-4/packages/calendar/www/view-list-display.tcl	14 Aug 2003 15:44:08 -0000	1.6
@@ -62,8 +62,8 @@
     set pretty_end_time [lc_time_fmt $ansi_end_date "%X"]
     set pretty_today [lc_time_fmt $ansi_today "%x"]
 
-    set start_date_seconds [clock scan $pretty_start_date]
-    set today_seconds [clock scan $pretty_today]
+    set start_date_seconds [clock scan [lc_time_fmt $ansi_start_date "%Y-%m-%d"]]
+    set today_seconds [clock scan [lc_time_fmt $ansi_today "%Y-%m-%d"]]
 
     # Adjust the display of no-time items
     if {[dt_no_time_p -start_time $pretty_start_date -end_time $pretty_end_date]} {