Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.48.4.4 -r1.48.4.5
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	13 Oct 2013 10:03:24 -0000	1.48.4.4
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	26 Oct 2013 09:00:40 -0000	1.48.4.5
@@ -551,7 +551,7 @@
 
     @see template::util::date::from_ans
 } {
-    uplevel [list foreach {year month day hours minutes seconds format} $date { break }]
+    uplevel [list lassign $date year month day hours minutes seconds format ]
 }
 
 ad_proc -public template::util::date::now_min_interval {} {