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 -N -r1.63.2.8 -r1.63.2.9
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 13:40:30 -0000	1.63.2.8
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 13:42:05 -0000	1.63.2.9
@@ -591,7 +591,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 {