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.63.2.11 -r1.63.2.12
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 14:13:04 -0000	1.63.2.11
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Aug 2021 14:19:51 -0000	1.63.2.12
@@ -146,9 +146,9 @@
     {seconds {}}
     {format "DD MONTH YYYY"}
 } {
-    Create a new Date object.
-    I chose to implement the date objects as lists instead of
-    arrays, because arrays are not first-class in Tcl
+    Create a new Date object. This is defined as a list of 7 elements,
+    respectively representing year, month, day, hours, minutes,
+    seconds and format.
 } {
     return [list $year $month $day $hours $minutes $seconds $format]
 }