Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	25 Apr 2018 08:46:13 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	25 Apr 2018 19:47:46 -0000	1.16
@@ -228,7 +228,7 @@
     #
     ####################
 
-    array set export [list]
+    array set export {}
 
     set override_p 0
     foreach argument { include override } {
@@ -283,13 +283,13 @@
     ####################
     
     if { !$form_p } {
-        set export_list [list]
+        set export_list {}
         foreach varname [array names export] {
             lappend export_list "[ns_urlencode $varname]=[ns_urlencode $export($varname)]"
         }
         return [join $export_list &]
     } else {
-        set export_list [list]
+        set export_list {}
         foreach varname [array names export] {
             lappend export_list "<input type=\"hidden\" name=\"[ns_quotehtml $varname]\"\
             value=\"[ns_quotehtml $export($varname)]\" >"
@@ -815,7 +815,7 @@
 <title>$page_title</title>
 </head>
 "
-    array set attrs [list]
+    array set attrs {}
     set attrs(bgcolor) [parameter::get -package_id [ad_acs_kernel_id] -parameter bgcolor -default "white"]
     set attrs(text)    [parameter::get -package_id [ad_acs_kernel_id] -parameter textcolor -default "black"]
 
@@ -1773,8 +1773,8 @@
     
     # build the map of currently selected columns 
     set full_column [split $sort_spec ","]
-    set sel_columns [list]
-    set direction [list]
+    set sel_columns {}
+    set direction {}
     foreach col $full_column {
         regexp {([^*,]+)([*])?} $col match coln dirn
         if {$dirn eq "*"} {
@@ -2153,7 +2153,7 @@
 ad_proc -deprecated set_intersection { u v } {
     <p>Returns the intersection of sets $u and $v.</p>
 } {
-    set result [list]
+    set result {}
     
     foreach ue $u {
 	if { [set_member? $v $ue] } {
@@ -2171,7 +2171,7 @@
     to that intersection, and also returns that intersection.</p>
 } {
     upvar $u-name u
-    set result [list]
+    set result {}
     
     foreach ue $u {
 	if { [set_member? $v $ue] } {
@@ -2187,7 +2187,7 @@
     <p>Returns the difference of sets $u and $v.  (i.e. The set of all
     members of u that aren't also members of $v.)</p>
 } {
-    set result [list]
+    set result {}
 
     foreach ue $u {
 	if { ![set_member? $v $ue] } {
@@ -2205,7 +2205,7 @@
     to that difference, and also returns that difference.</p>
 } {
     upvar $u-name u
-    set result [list]
+    set result {}
 
     foreach ue $u {
 	if { ![set_member? $v $ue] } {
@@ -2663,7 +2663,7 @@
     }
 
 
-    set variables [list]
+    set variables {}
     switch -- $mode {
         array {
             set variables $formvars