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.27.2.3 -r1.27.2.4
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	20 May 2004 16:38:16 -0000	1.27.2.3
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	6 Jul 2004 19:59:23 -0000	1.27.2.4
@@ -517,17 +517,13 @@
 
 ad_proc -public template::util::date::unpack { date } {
     Set the variables for each field of the date object in 
-    the calling frame
+    the calling frame.
+
+    sets: year month day hours minutes seconds format from a list formatted date string 
+
+    @see template::util::date::from_ans
 } {
-  uplevel {
-    set year    [lindex $date 0]
-    set month   [lindex $date 1]
-    set day     [lindex $date 2]
-    set hours   [lindex $date 3]
-    set minutes [lindex $date 4]
-    set seconds [lindex $date 5]
-    set format  [lindex $date 6]
-  }
+    uplevel [list foreach {year month day hours minutes seconds format} $date { break }]
 }
 
 ad_proc -public template::util::date::now_min_interval {} {