Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.77 -r1.78
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Apr 2018 08:42:17 -0000	1.77
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Apr 2018 19:23:26 -0000	1.78
@@ -750,7 +750,7 @@
     if { [llength $list_properties(from_clauses)] == 0 } {
         return {}
     }
-    set trimmed_from_clauses [list]
+    set trimmed_from_clauses {}
 
     set result {}
 
@@ -911,9 +911,9 @@
     set __groupby $list_properties(groupby)
 
     # Output header row
-    set __cols [list]
-    set __csv_cols [list]
-    set __csv_labels [list]
+    set __cols {}
+    set __csv_cols {}
+    set __csv_labels {}
 
     foreach __element_name $list_properties(elements) {
         template::list::element::get_reference -list_name $name -element_name $__element_name
@@ -943,7 +943,7 @@
         }
 
         if {$__groupby eq ""  || $group_lastnum_p} {
-            set __cols [list]
+            set __cols {}
 
             foreach __element_name $__csv_cols {
                 if {![string match "*___*_group" $__element_name]} {
@@ -993,7 +993,7 @@
         if { [llength $ids] == 0 } {
             return NULL
         }
-        set quoted_ids [list]
+        set quoted_ids {}
         foreach one_id $ids {
             lappend quoted_ids "'[DoubleApos $one_id]'"
         }
@@ -1093,7 +1093,7 @@
 
     template::list::orderby::get_reference -list_name $name -orderby_name $list_properties(orderby_selected_name)
 
-    set result [list]
+    set result {}
     if {$list_properties(orderby_selected_direction) eq "desc"} {
         lappend result "-decreasing"
     }
@@ -1411,7 +1411,7 @@
         # However, for now, it's just commented out with an if 0 ... block.
         if 0 {
             set num_pages 11
-            set pages [list]
+            set pages {}
             for { set i [expr {$current_page - $num_pages}] } { $i < $current_page + $num_pages } { incr i } {
                 if { $i > 0 && $i <= $paginator(page_count) } {
                     lappend pages $i
@@ -1580,7 +1580,7 @@
     get_reference -name $name
 
     if {[info exists filter_names]} {
-        set filter_refs [list]
+        set filter_refs {}
         foreach filter_name $filter_names {
             lappend filter_refs ${name}:filter:${filter_name}:properties
         }
@@ -2113,7 +2113,7 @@
 
     # Create the orderby filter, if specified
     if { $element_properties(orderby) ne "" || $element_properties(orderby_asc) ne "" || $element_properties(orderby_desc) ne "" } {
-        set orderby_spec [list]
+        set orderby_spec {}
         foreach elm { orderby orderby_asc orderby_desc default_direction label } {
             if { $element_properties($elm) ne "" } {
                 lappend orderby_spec $elm $element_properties($elm)
@@ -3200,15 +3200,15 @@
     # Get an upvar'd reference to list_properties
     get_reference -name $name
 
-    set filter_names_options_tmp [list]
-    set filter_names_options [list]
-    set filter_hidden_filters [list]
-    set filter_key_filters [list]
+    set filter_names_options_tmp {}
+    set filter_names_options {}
+    set filter_hidden_filters {}
+    set filter_key_filters {}
     set filter_exclude_from_key [list orderby groupby format page __list_view]
     if {[llength $filter_exclude_from_key_extra]} {
         set filter_exclude_from_key [concat $filter_exclude_from_key $filter_exclude_from_key_extra]
     }
-    set filter_hidden_filters_url_vars [list]
+    set filter_hidden_filters_url_vars {}
     # loop through all the filters in this list
     foreach filter_ref $list_properties(filter_refs) {
         upvar #$level $filter_ref filter_properties
@@ -3280,7 +3280,7 @@
             # the filter from the client property if its
             # specified in clear_one
             set __old_client_property_filters [ad_get_client_property acs-templating $__list_filter_form_client_property_key]
-            set __client_property_filters [list]
+            set __client_property_filters {}
 
             foreach {__ref __value} $__old_client_property_filters {
                 if {[set ${__ref}(name)] ne $clear_one} {
@@ -3351,7 +3351,7 @@
         }
         if {![template::element::exists $filters_form_name $filter_properties(name)]} {
             # extract options
-            set options [list]
+            set options {}
 
             foreach \
                 elm $filter_properties(values) \
@@ -3414,7 +3414,7 @@
         # still has to process the values to generate a valid
         # where clause
         template::list::get_reference -name $name
-        set templist [list]
+        set templist {}
         foreach {f_ref f_value} $__client_property_filters {
             upvar \#[template::adp_level] $f_ref filter_properties
             set filter_properties(value) [set $filter_properties(name)]