Index: openacs-4/packages/xotcl-core/tcl/ical-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/ical-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	3 Apr 2012 09:21:44 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	31 Jul 2012 12:25:22 -0000	1.9
@@ -38,6 +38,9 @@
   ical proc tcl_time_to_local_day {time} {
     VALUE=DATE:[my clock_to_local_day [clock scan $time]]
   }
+  ical proc utc_to_clock {utc_time} {
+    clock scan $utc_time -format "%Y%m%dT%H%M%SZ" -gmt 1
+  }
   ical proc clock_to_utc {seconds} {
     clock format $seconds -format "%Y%m%dT%H%M%SZ" -gmt 1
   }