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.56 -r1.57
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	25 Apr 2018 19:23:26 -0000	1.56
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	9 May 2018 15:33:29 -0000	1.57
@@ -143,7 +143,7 @@
 } {
 
   set now [clock format [clock seconds] -format "%Y %m %d"]
-  set today {}
+  set today [list]
 
   foreach v $now {
     # trim leading zeros to avoid octal problem
@@ -157,7 +157,7 @@
     Create a new Date object for the current date and time
 } {
   set now [clock format [clock seconds] -format "%Y %m %d %H %M %S"]
-  set today {}
+  set today [list]
 
   foreach v $now {
     lappend today [util::trim_leading_zeros $v]
@@ -340,7 +340,7 @@
       # Return a date in format "YYYY MM DD HH24 MI SS"
       # For use with karl's non-working form builder API
       set clipped_date [lrange $date 0 5]
-      set ret {}
+      set ret [list]
       set pad "0000"
       foreach fragment $clipped_date {
         lappend ret "[string range $pad [string length $fragment] end]$fragment"
@@ -351,7 +351,7 @@
     linear_date_no_time {
       # Return a date in format "YYYY MM DD"
       set clipped_date [lrange $date 0 2]
-      set ret {}
+      set ret [list]
       set pad "0000"
       foreach fragment $clipped_date {
         lappend ret "[string range $pad [string length $fragment] end]$fragment"
@@ -367,7 +367,7 @@
       # not a terribly efficient thing to do.
 
       set clipped_date [lrange $date 0 2]
-      set date_list {}
+      set date_list [list]
       set pad "0000"
       foreach fragment $clipped_date {
         lappend date_list "[string range $pad [string length $fragment] end]$fragment"
@@ -489,7 +489,7 @@
     }
     clock {
       set old_date [clock format $value -format "%Y %m %d %H %M %S"]
-      set new_date {}
+      set new_date [list]
       foreach field $old_date {
         lappend new_date [util::trim_leading_zeros $field]
       }
@@ -498,7 +498,7 @@
     }
     sql_date {
       set old_format [lindex $date 6]
-      set new_date {}
+      set new_date [list]
       foreach fragment $value {
         lappend new_date [util::trim_leading_zeros $fragment]
       }
@@ -568,7 +568,7 @@
     @author Walter McGinnis (wtem@olywa.net)
     @creation-date 2002-01-06
 } {
-  set now {}
+  set now [list]
   foreach v [clock format [clock seconds] -format "%Y %m %d %H %M %S"] {
       lappend now [util::trim_leading_zeros $v]
   }
@@ -603,7 +603,7 @@
     @author Walter McGinnis (wtem@olywa.net)
     @creation-date 2002-01-06
 } {
-  set now {}
+  set now [list]
   foreach v [clock format [clock seconds] -format "%Y %m %d %H %M %S"] {
       lappend now [util::trim_leading_zeros $v]
   }
@@ -727,7 +727,7 @@
 
   unpack $date
 
-  set error_msg {}
+  set error_msg [list]
 
   foreach {field exp} { year "YYYY|YY" month "MM|MON|MONTH" day "DD" 
                       hours "HH24|HH12" minutes "MI" seconds "SS" } {
@@ -1036,7 +1036,7 @@
   # of tokens
   set format_string $element(format)
 
-  set tokens {}
+  set tokens [list]
 
   if {[info exists attributes(id)]} {
        set id_attr_name $attributes(id)