Index: openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl	2 Jul 2002 21:17:07 -0000	1.3
+++ openacs-4/packages/calendar/tcl/calendar-outlook-procs.tcl	2 Jul 2002 21:49:55 -0000	1.4
@@ -77,9 +77,9 @@
         set DTEND [ics_timestamp_format -timestamp $end_date]
 
         # Put it together
-        set ics_event "BEGIN:VCALENDAR\r\nPRODID:-//OpenACS//OpenACS 4.5 MIMEDIR//EN\r\nVERSION:2.0\r\nMETHOD:PUBLISH\r\nBEGIN:VEVENT\r\nDTSTART$DTSTART\r\nDTEND$DTEND\r\n"
+        set ics_event "BEGIN:VCALENDAR\r\nPRODID:-//OpenACS//OpenACS 4.5 MIMEDIR//EN\r\nVERSION:2.0\r\nMETHOD:PUBLISH\r\nBEGIN:VEVENT\r\nDTSTART:$DTSTART\r\nDTEND:$DTEND\r\n"
 
-        set creation_date $DTSTART
+        regexp {^([0-9]*)T} $DTSTART all creation_date
         set DESCRIPTION $description
         set title $name