Index: openacs-4/packages/acs-admin/www/monitor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/monitor.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/monitor.tcl	7 Aug 2017 23:47:45 -0000	1.4
+++ openacs-4/packages/acs-admin/www/monitor.tcl	26 Apr 2018 08:56:37 -0000	1.5
@@ -12,14 +12,14 @@
 #gets the information in a different way.
 
 set threads [ns_info threads]
-set connections [list]
+set connections {}
 foreach thread $threads {
     if { [lindex $thread 5] eq "ns:connthread" && [llength [lindex $thread 6]] > 0 } {
 	lappend connections [lindex $thread 6]
     }
 }
 
-array set ip_p [list]
+array set ip_p {}
 
 multirow create connections num ip state method url seconds bytes
 
Index: openacs-4/packages/acs-admin/www/apm/version-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-view.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-admin/www/apm/version-view.tcl	2 Feb 2018 00:04:50 -0000	1.25
+++ openacs-4/packages/acs-admin/www/apm/version-view.tcl	26 Apr 2018 08:56:37 -0000	1.26
@@ -58,7 +58,7 @@
 # Later we'll output any items in "prompts" as entries in a bullet list at the
 # top of the page (these are things that the administrator probably needs to
 # address ASAP).
-set prompts [list]
+set prompts {}
 
 if { ![info exists installed_version_id] } {
     if { !$downloaded_p } {
@@ -115,7 +115,7 @@
 
 
 # Obtain a list of owners, properly hyperlinked.
-set owners [list]
+set owners {}
 db_foreach apm_all_owners {
     select owner_uri, owner_name from apm_package_owners where version_id = :version_id
 } {
Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	21 Jan 2018 01:13:57 -0000	1.12
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	26 Apr 2018 08:56:37 -0000	1.13
@@ -19,7 +19,7 @@
     script_documentation:onevalue
 }
 
-set context [list]
+set context {}
 set url_vars [export_vars {path version_id}]
 set return_url [export_vars -base [ad_conn url] {path version_id}]
 set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p]
Index: openacs-4/packages/acs-api-browser/www/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/display-sql.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-api-browser/www/display-sql.tcl	2 Feb 2018 00:08:10 -0000	1.9
+++ openacs-4/packages/acs-api-browser/www/display-sql.tcl	26 Apr 2018 08:56:37 -0000	1.10
@@ -28,7 +28,7 @@
     sql:onevalue
 }
 
-set context [list]
+set context {}
 if {$version_id ne ""} {
     db_0or1row package_info_from_package_id {
         select pretty_name, package_key, version_name
Index: openacs-4/packages/acs-api-browser/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/index.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-api-browser/www/index.tcl	7 Aug 2017 23:47:46 -0000	1.8
+++ openacs-4/packages/acs-api-browser/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.9
@@ -20,7 +20,7 @@
 }
 
 set title "API Browser"
-set context [list]
+set context {}
 
 if  { [info exists about_package_key] } {
 
Index: openacs-4/packages/acs-api-browser/www/proc-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-browse.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-api-browser/www/proc-browse.tcl	23 Apr 2018 16:13:13 -0000	1.7
+++ openacs-4/packages/acs-api-browser/www/proc-browse.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -34,7 +34,7 @@
 set context [list "Browse Procedures"]
 set dimensional_slider [ad_dimensional $dimensional]
 
-set matches [list]
+set matches {}
 foreach proc [nsv_array names api_proc_doc] {
     array set doc_elements [nsv_get api_proc_doc $proc]
 
Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	23 Mar 2018 09:58:03 -0000	1.18
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	26 Apr 2018 08:56:37 -0000	1.19
@@ -61,9 +61,9 @@
 }
 
 set counter 0
-set matches [list]
-set deprecated_matches [list]
-set private_matches [list]
+set matches {}
+set deprecated_matches {}
+set private_matches {}
 
 # place a [list proc_name score positionals] into matches for every proc
 foreach proc [nsv_array names api_proc_doc] { 
Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-api-browser/www/proc-view.tcl	29 Mar 2018 22:49:53 -0000	1.12
+++ openacs-4/packages/acs-api-browser/www/proc-view.tcl	26 Apr 2018 08:56:37 -0000	1.13
@@ -18,7 +18,7 @@
 
 set title $proc
 
-set context [list]
+set context {}
 if { $version_id ne "" } {
     db_0or1row package_info_from_package_id {
         select pretty_name, package_key, version_name
Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	21 Jan 2018 01:13:57 -0000	1.10
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	26 Apr 2018 08:56:37 -0000	1.11
@@ -67,7 +67,7 @@
     }
 }
 
-set context [list]
+set context {}
 if { [info exists version_id] } {
     db_0or1row package_info_from_package_id {
         select pretty_name, package_key, version_name
Index: openacs-4/packages/acs-api-browser/www/type-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/Attic/type-view.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-api-browser/www/type-view.tcl	7 Aug 2017 23:47:46 -0000	1.5
+++ openacs-4/packages/acs-api-browser/www/type-view.tcl	26 Apr 2018 08:56:37 -0000	1.6
@@ -27,7 +27,7 @@
 set public_p [::apidoc::set_public $version_id]
 
 
-set context [list]
+set context {}
 
 if { [info exists version_id] } {
     db_1row package_info_from_version_id {
Index: openacs-4/packages/acs-authentication/lib/local-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/lib/local-search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-authentication/lib/local-search.tcl	7 Aug 2017 23:47:46 -0000	1.3
+++ openacs-4/packages/acs-authentication/lib/local-search.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -18,7 +18,7 @@
     set orderby ""
 }
 set search_text [string tolower $search_text]
-set search_terms [list]
+set search_terms {}
 foreach term [split $search_text] {
     lappend search_terms $term
 }
@@ -47,7 +47,7 @@
 or lower(email) like '%' || :search_text || '%'
 " {
 
-set status [list]
+set status {}
 if {[info exists object_id]} {
     set group_member_p [permission::permission_p -object_id $object_id -party_id $user_id -privilege $privilege]
     set status ""
Index: openacs-4/packages/acs-automated-testing/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-automated-testing/www/index.tcl	7 Aug 2017 23:47:46 -0000	1.7
+++ openacs-4/packages/acs-automated-testing/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -10,7 +10,7 @@
 }
 
 set page_title "Test Servers Control Page"
-set context [list]
+set context {}
 multirow create servers path admin_login_url local_url remote_url name description install_date error_total_count parse_errors
 
 set xml_report_dir [aa_test::xml_report_dir]
Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	25 Apr 2018 19:23:25 -0000	1.51
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	26 Apr 2018 08:56:37 -0000	1.52
@@ -782,7 +782,7 @@
 
     if { $varargs_p } {
 	upvar args args
-	set args [list]
+	set args {}
     }
 
     set counter 0
Index: openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.adp	25 Apr 2018 08:38:28 -0000	1.4
+++ openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.adp	26 Apr 2018 08:56:37 -0000	1.5
@@ -49,7 +49,7 @@
           -object_id $package_id \
           -privilege admin]
 
-set context [list]
+set context {}
 
 set title "Administration"
 
Index: openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.html,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.html	8 Nov 2017 09:42:12 -0000	1.16
+++ openacs-4/packages/acs-core-docs/www/tutorial-admin-pages.html	26 Apr 2018 08:56:37 -0000	1.17
@@ -49,7 +49,7 @@
           -object_id $package_id \
           -privilege admin]
 
-set context [list]
+set context {}
 
 set title "Administration"
 
Index: openacs-4/packages/acs-core-docs/www/tutorial-pages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-pages.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-core-docs/www/tutorial-pages.adp	25 Apr 2018 08:38:28 -0000	1.4
+++ openacs-4/packages/acs-core-docs/www/tutorial-pages.adp	26 Apr 2018 08:56:37 -0000	1.5
@@ -49,7 +49,7 @@
 }
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/acs-core-docs/www/tutorial-pages.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/tutorial-pages.html,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/acs-core-docs/www/tutorial-pages.html	25 Apr 2018 08:38:28 -0000	1.47
+++ openacs-4/packages/acs-core-docs/www/tutorial-pages.html	26 Apr 2018 08:56:37 -0000	1.48
@@ -45,7 +45,7 @@
 }
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/acs-core-docs/www/files/tutorial/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-core-docs/www/files/tutorial/index.tcl	7 Aug 2017 23:47:54 -0000	1.3
+++ openacs-4/packages/acs-core-docs/www/files/tutorial/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -6,7 +6,7 @@
 }
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml	25 Apr 2018 08:38:28 -0000	1.55
+++ openacs-4/packages/acs-core-docs/www/xml/developers-guide/tutorial-advanced.xml	26 Apr 2018 08:56:37 -0000	1.56
@@ -419,7 +419,7 @@
           -object_id $package_id \
           -privilege admin]
 
-set context [list]
+set context {}
 
 set title "Administration"
 
Index: openacs-4/packages/acs-lang/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/index.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-lang/www/admin/index.tcl	7 Aug 2017 23:47:57 -0000	1.13
+++ openacs-4/packages/acs-lang/www/admin/index.tcl	26 Apr 2018 08:56:37 -0000	1.14
@@ -15,7 +15,7 @@
 set system_locale_label [lang::util::get_label $system_locale]
 
 set page_title [_ acs-lang.Administration_of_Localization]
-set context [list]
+set context {}
 
 set site_wide_admin_p [acs_user::site_wide_admin_p]
 
Index: openacs-4/packages/acs-lang/www/admin/test/translator-mode.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/Attic/translator-mode.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/admin/test/translator-mode.tcl	7 Aug 2017 23:47:57 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/test/translator-mode.tcl	26 Apr 2018 08:56:37 -0000	1.3
@@ -4,7 +4,7 @@
 
 set tcl_message [_ acs-lang.French]
 
-set options [list]
+set options {}
 
 foreach elm { English French German Spanish } {
     lappend options [list [_ acs-lang.$elm] $elm]
Index: openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/incoming-mail-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	23 Apr 2018 07:17:32 -0000	1.15
+++ openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	26 Apr 2018 08:56:37 -0000	1.16
@@ -206,7 +206,7 @@
 	#get all available headers
 	set keys [mime::getheader $mime -names]
 		
-	set headers [list]
+	set headers {}
 
 	# create both the headers array and all headers directly for the email array
 	foreach header $keys {
@@ -225,7 +225,7 @@
 	}
 	
 	# travers the tree and extract parts into a flat list
-	set all_parts [list]
+	set all_parts {}
 	foreach part $parts {
 	    if {[mime::getproperty $part content] eq "multipart/alternative"} {
 		foreach child_part [mime::getproperty $part parts] {
@@ -236,8 +236,8 @@
 	    }
 	}
 	
-	set bodies [list]
-	set files [list]
+	set bodies {}
+	set files {}
 	
 	#now extract all parts (bodies/files) and fill the email array
 	foreach part $all_parts {
Index: openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp	19 Feb 2018 18:33:47 -0000	1.2
+++ openacs-4/packages/acs-mail-lite/www/doc/incoming-email-legacy-notes.adp	26 Apr 2018 08:56:37 -0000	1.3
@@ -106,7 +106,7 @@
     #get all available headers
     set keys [mime::getheader $mime -names]
     
-    set headers [list]
+    set headers {}
 
     # create both the headers array and all headers directly for the email array
     foreach header $keys {
@@ -149,8 +149,8 @@
 </p>
 
 <pre>
-    set bodies [list]
-    set files [list]
+    set bodies {}
+    set files {}
     
     #now extract all parts (bodies/files) and fill the email array
     foreach part $all_parts {
Index: openacs-4/packages/acs-service-contract/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-service-contract/www/index.tcl	7 Aug 2017 23:47:57 -0000	1.9
+++ openacs-4/packages/acs-service-contract/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.10
@@ -1,4 +1,4 @@
-set context [list]
+set context {}
 
 db_multirow defined_contracts defined_contracts {
     select contract_id,
Index: openacs-4/packages/acs-subsite/lib/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/applications.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/lib/applications.tcl	7 Aug 2017 23:47:57 -0000	1.7
+++ openacs-4/packages/acs-subsite/lib/applications.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -1,6 +1,6 @@
 set admin_p [permission::permission_p -object_id [ad_conn subsite_id] -privilege admin -party_id [ad_conn untrusted_user_id]]
 
-set actions [list]
+set actions {}
 if { $admin_p } {
     lappend actions \
         [_ acs-subsite.Add_new_app] \
Index: openacs-4/packages/acs-subsite/lib/services.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/Attic/services.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/lib/services.tcl	7 Aug 2017 23:47:57 -0000	1.6
+++ openacs-4/packages/acs-subsite/lib/services.tcl	26 Apr 2018 08:56:37 -0000	1.7
@@ -11,7 +11,7 @@
         }
     }
 
-set services [list]
+set services {}
 
 foreach url [site_node::get_children -package_type apm_service -node_id [subsite::get_element -element node_id]] {
     array unset node 
Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -106,8 +106,8 @@
 	# Store the plsql in a list so that we can choose, at the end,
 	# to either execute it or return it as a debug message
 
-	set plsql [list]
-	set plsql_drop [list]
+	set plsql {}
+	set plsql_drop {}
 
 	if { [db_table_exists $table_name] } {
 	    # What to do? Options:
Index: openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	26 Apr 2018 08:56:37 -0000	1.8
@@ -22,7 +22,7 @@
 	@creation-date 11/2000
 
     } {
-	set the_list [list]
+	set the_list {}
 	foreach row $attr_list {
 	    lappend the_list [list [lindex $row 1] [lindex $row 3]]
 	}
@@ -56,7 +56,7 @@
 	}
 
 	# For each real arg, append default or supplied arg value
-	set pieces [list]
+	set pieces {}
 	foreach row $real_args {
 	    lassign $row arg_name arg_default
 
@@ -97,7 +97,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces [list]
+	set pieces {}
 	set arg_num 0
 	foreach triple $attr_list {
 	    incr arg_num
@@ -118,7 +118,7 @@
 	@creation-date 07/2001
 
     } {
-	set pieces [list]
+	set pieces {}
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]
 	    set attr [string toupper [string trim [lindex $triple 1]]]
@@ -146,7 +146,7 @@
 	@creation-date 07/2001
 
     } {
-	set pieces [list]
+	set pieces {}
 	foreach triple $attr_list {
 	    set attr  [string trim [lindex $triple 1]]
 	    set dft   [string trim [lindex $triple 2]]
Index: openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	27 Jan 2018 16:19:08 -0000	1.5
+++ openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	26 Apr 2018 08:56:37 -0000	1.6
@@ -219,7 +219,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces [list]
+	set pieces {}
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]
 	    set attr [string toupper [string trim [lindex $triple 1]]]
@@ -246,7 +246,7 @@
 	@creation-date 11/2000
 
     } {
-	set the_list [list]
+	set the_list {}
 	foreach row $attr_list {
 	    lappend the_list [list [lindex $row 1] [lindex $row 3]]
 	}
@@ -264,7 +264,7 @@
 	@creation-date 11/2000
 
     } {
-	set pieces [list]
+	set pieces {}
 	foreach row $pairs {
 	    set attr [string trim [lindex $row 0]]
 	    set attr_value [string trim [lindex $row 1]]
@@ -292,7 +292,7 @@
 
     } {
 	set ignore [string toupper $ignore]
-	set this_columns [list]
+	set this_columns {}
 	set table_name [string toupper [string trim $table_name]]
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]
Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	23 Apr 2018 07:14:16 -0000	1.14
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	26 Apr 2018 08:56:37 -0000	1.15
@@ -131,7 +131,7 @@
 	set pk_constraint_name [plsql_utility::generate_constraint_name $table_name rel_id "pk"]
 	set fk_constraint_name [plsql_utility::generate_constraint_name $table_name rel_id "fk"]
 
-	set plsql [list]
+	set plsql {}
 
 	# Create the actual acs object type
 
Index: openacs-4/packages/acs-subsite/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/index.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-subsite/www/index.tcl	7 Aug 2017 23:47:58 -0000	1.22
+++ openacs-4/packages/acs-subsite/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.23
@@ -40,7 +40,7 @@
     ad_script_abort
 }
 
-set context [list]
+set context {}
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -party_id [ad_conn untrusted_user_id] -privilege admin]
 
Index: openacs-4/packages/acs-subsite/www/admin/group-types/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/delete-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/group-types/delete-2.tcl	19 Jan 2018 14:09:48 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/group-types/delete-2.tcl	26 Apr 2018 08:56:37 -0000	1.10
@@ -31,7 +31,7 @@
     ad_script_abort
 }
 
-set plsql [list]
+set plsql {}
 
 if { ![db_0or1row select_type_info {
     select t.table_name, t.package_name
Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	7 Apr 2018 17:31:59 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	26 Apr 2018 08:56:37 -0000	1.14
@@ -169,7 +169,7 @@
     }
 
 multirow create nodes node_id expand_mode expand_url tree_indent name name_url instance instance_url type action_type action_form_part add_folder_url new_app_url unmount_url mount_url rename_url delete_url parameters_url permissions_url extra_form_part view_p
-set open_nodes [list]
+set open_nodes {}
 
 db_foreach nodes_select {} {
     set add_folder_url ""
@@ -231,7 +231,7 @@
     set expand_mode 0
     if {!$root_p && $n_children > 0} {
 	set expand_mode 1
-	set urlvars [list]
+	set urlvars {}
 	foreach n $expand {
 	    if {$n == $node_id} {
 		set expand_mode 2
Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	25 Apr 2018 19:23:26 -0000	1.19
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	26 Apr 2018 08:56:37 -0000	1.20
@@ -34,7 +34,7 @@
 # Initialize the $hierarchy datastructure which is a list of
 # lists. The inner lists consist of two elements: 1. level,
 # 2. privilege
-set hierarchy [list]
+set hierarchy {}
 foreach privilege $existing_privs {
     lappend hierarchy [list 0 $privilege]
 }
Index: openacs-4/packages/acs-subsite/www/permissions/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/one.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-subsite/www/permissions/one.tcl	7 Aug 2017 23:47:59 -0000	1.18
+++ openacs-4/packages/acs-subsite/www/permissions/one.tcl	26 Apr 2018 08:56:37 -0000	1.19
@@ -34,7 +34,7 @@
 
 db_multirow acl acl {} {}
 
-set controls [list]
+set controls {}
 set controlsUrl [export_vars -base grant {application_url object_id}]
 lappend controls "<a href=\"[ns_quotehtml $controlsUrl]\">[ns_quotehtml [_ acs-subsite.Grant_Permission]]</a>"
 
Index: openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	7 Aug 2017 23:47:59 -0000	1.15
+++ openacs-4/packages/acs-subsite/www/permissions/perm-include.tcl	26 Apr 2018 08:56:37 -0000	1.16
@@ -21,7 +21,7 @@
 
 db_1row object_info {}
 
-set elements [list]
+set elements {}
 lappend elements grantee_name { 
     label "[_ acs-subsite.Name]"
     link_url_col name_url
Index: openacs-4/packages/acs-subsite/www/shared/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/whos-online.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/shared/whos-online.tcl	7 Aug 2017 23:47:59 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/shared/whos-online.tcl	26 Apr 2018 08:56:37 -0000	1.13
@@ -29,7 +29,7 @@
         }
     }
 
-set users [list]
+set users {}
 
 foreach user_id [whos_online::user_ids] {
     acs_user::get -user_id $user_id -array user
Index: openacs-4/packages/acs-subsite/www/site-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/site-map/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-subsite/www/site-map/index.tcl	7 Aug 2017 23:47:59 -0000	1.10
+++ openacs-4/packages/acs-subsite/www/site-map/index.tcl	26 Apr 2018 08:56:37 -0000	1.11
@@ -128,7 +128,7 @@
     }
 
 multirow create nodes node_id expand_mode expand_url tree_indent name name_url instance instance_url type action_type action_form_part add_folder_url new_app_url unmount_url mount_url rename_url delete_url parameters_url permissions_url extra_form_part view_p
-set open_nodes [list]
+set open_nodes {}
 
 db_foreach nodes_select {} {
     set add_folder_url ""
@@ -191,7 +191,7 @@
     set expand_mode 0
     if {!$root_p && $n_children > 0} {
 	set expand_mode 1
-	set urlvars [list]
+	set urlvars {}
 	foreach n $expand {
 	    if {$n == $node_id} {
 		set expand_mode 2
Index: openacs-4/packages/acs-templating/www/doc/demo/list3/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list3/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list3/index.tcl	7 Aug 2017 23:48:02 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list3/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -16,7 +16,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 template::list::create -name notes \
Index: openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	7 Aug 2017 23:48:02 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list4/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -22,7 +22,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 # Here, we are adding a link for every row. The title of the note
Index: openacs-4/packages/acs-templating/www/doc/demo/list5/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list5/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list5/index.tcl	7 Aug 2017 23:48:02 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list5/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -16,7 +16,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
 # New here, is the use of -key to signify which column is the key field,
Index: openacs-4/packages/acs-templating/www/doc/demo/list6/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list6/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list6/index.tcl	7 Aug 2017 23:48:02 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list6/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -16,10 +16,10 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
-set actions [list]
+set actions {}
 
 if { $create_p } {
     lappend actions "Create Note" add-edit "Create Note"
Index: openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	7 Aug 2017 23:48:02 -0000	1.5
+++ openacs-4/packages/acs-templating/www/doc/demo/list7/index.tcl	26 Apr 2018 08:56:37 -0000	1.6
@@ -32,10 +32,10 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
-set actions [list]
+set actions {}
 
 if { $create_p } {
     lappend actions "Create Note" add-edit "Create Note"
Index: openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl	7 Aug 2017 23:48:03 -0000	1.4
+++ openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl	26 Apr 2018 08:56:37 -0000	1.5
@@ -24,10 +24,10 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
-set actions [list]
+set actions {}
 
 if { $create_p } {
     lappend actions "Create Note" add-edit "Create Note"
Index: openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -18,10 +18,10 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [permission::permission_p -object_id $package_id -privilege create]
 
-set actions [list]
+set actions {}
 
 if { $create_p } {
     lappend actions "Create Note" add-edit "Create Note"
Index: openacs-4/packages/address-book/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/address-book/www/index.tcl	1 Mar 2005 00:01:25 -0000	1.4
+++ openacs-4/packages/address-book/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.5
@@ -27,7 +27,7 @@
 
 set instance_name [db_exec_plsql package_name {begin :1 := acs_object.name(:instance_id); end;}]
 
-set context [list]
+set context {}
 
 set create_p [ad_permission_p $instance_id create]
 
Index: openacs-4/packages/adserver/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/adserver/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/adserver/www/index.tcl	10 Sep 2002 22:22:19 -0000	1.2
+++ openacs-4/packages/adserver/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.3
@@ -27,7 +27,7 @@
 "
 set package_id [ad_conn package_id]
 
-set ads [list]
+set ads {}
 set count 0
 db_foreach adserver_sample_groups {
     select group_key, pretty_name, adv_count, rotation_method
Index: openacs-4/packages/ajaxhelper/tcl/ajax-dojo-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/ajax-dojo-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ajaxhelper/tcl/ajax-dojo-procs.tcl	7 Aug 2017 23:48:03 -0000	1.4
+++ openacs-4/packages/ajaxhelper/tcl/ajax-dojo-procs.tcl	26 Apr 2018 08:56:37 -0000	1.5
@@ -191,7 +191,7 @@
 	@creation-date 2006-11-05
 
 } {
-	set objargs [list]
+	set objargs {}
 	foreach args $argslist {
 		lappend objargs [join $args ":"]
 	}
Index: openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl	25 Apr 2018 19:47:46 -0000	1.2
+++ openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl	26 Apr 2018 08:56:37 -0000	1.3
@@ -1,6 +1,6 @@
 
 # create the list that holds our data
-set data [list]
+set data {}
 lappend data [list [list "x" "1"] [list "y" "10"] ]
 lappend data [list [list "x" "5"] [list "y" "20"] ]
 
Index: openacs-4/packages/ajaxhelper/www/tests/test_yahootreeview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/tests/test_yahootreeview.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ajaxhelper/www/tests/test_yahootreeview.tcl	8 Sep 2007 14:22:11 -0000	1.3
+++ openacs-4/packages/ajaxhelper/www/tests/test_yahootreeview.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -1,5 +1,5 @@
 # create the nodes for our tree
-set nodes [list]
+set nodes {}
 
 # 1st level
 lappend nodes [list "fld1" "Folder 1" "tree" "" "" "" ""]
Index: openacs-4/packages/ams/tcl/ams-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-procs.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/ams/tcl/ams-procs.tcl	25 Apr 2018 19:47:46 -0000	1.55
+++ openacs-4/packages/ams/tcl/ams-procs.tcl	26 Apr 2018 08:56:37 -0000	1.56
@@ -682,7 +682,7 @@
 	
 	# Control list to know which attributes are already in the
 	# elements list so we don't en up with duplicates
-	set control_list [list]
+	set control_list {}
 	
 	set all_attributes [db_list_of_lists select_values {}]
 	
@@ -696,7 +696,7 @@
 		set widget          [lindex $attribute 4]
 		set value           [lindex $attribute 5]
 		
-		set val [list]
+		set val {}
 		if { [regexp "\{text/.*\}" $value value_format] } {
 		    lappend val [lindex $value_format 0]
 		    lappend val [list [string range $value [expr [string length $value_format] + 1] [string length $value]]]
Index: openacs-4/packages/assessment/www/asm-admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/assessment/www/asm-admin/index.tcl	7 Aug 2017 23:48:04 -0000	1.14
+++ openacs-4/packages/assessment/www/asm-admin/index.tcl	26 Apr 2018 08:56:37 -0000	1.15
@@ -28,7 +28,7 @@
     {zipfile:file {label "[_ assessment.Import_QTI_ZIP_File]"}}
 }
 
-set actions [list]
+set actions {}
 set advanced_options_p [parameter::get -parameter ShowAdvancedOptions -default 1]
 if { $advanced_options_p } {
     lappend actions [_ assessment.New_Survey] {assessment-form?type=survey} [_ assessment.New_Survey] \
Index: openacs-4/packages/assessment/www/asm-admin/sessions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/sessions.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/sessions.tcl	7 Aug 2017 23:48:04 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/sessions.tcl	26 Apr 2018 08:56:37 -0000	1.9
@@ -34,7 +34,7 @@
 }
 set base_url [ad_return_url]
 
-set actions [list]
+set actions {}
 
 if { [info exists subject_id] } {
     set actions [list "[_ assessment.All_Users]" ? "[_ assessment.All_Users]"]    
Index: openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl	20 Jan 2018 22:58:51 -0000	1.19
+++ openacs-4/packages/assessment-portlet/www/assessment-portlet.tcl	26 Apr 2018 08:56:37 -0000	1.20
@@ -18,7 +18,7 @@
 set list_of_package_ids $config(package_id)
 
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
-set elements [list]
+set elements {}
 if {!$one_instance_p} {
     set elements [list community_name \
                       [list \
@@ -104,7 +104,7 @@
 }
 
 
-set elements [list]
+set elements {}
 if {!$one_instance_p} {
     set elements [list community_name \
 		      [list \
Index: openacs-4/packages/auth-ldap/lib/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/lib/search.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/auth-ldap/lib/search.tcl	8 Sep 2008 20:29:24 -0000	1.1
+++ openacs-4/packages/auth-ldap/lib/search.tcl	26 Apr 2018 08:56:37 -0000	1.2
@@ -19,7 +19,7 @@
 set auth_search_parameters [auth::driver::get_parameter_values -authority_id $authority_id -impl_id $auth_search_impl_id]
 
 array set auth_search_parameters_arr $auth_search_parameters
-set search_attribs [list]
+set search_attribs {}
 # foreach attribute_mapping [split $auth_search_parameters_arr(InfoAttributeMap) ";"] {
 #     set attr [lindex [split $attribute_mapping "="] 1]
 #     set pretty_name [lindex [split $attribute_mapping "="] 0]
@@ -40,7 +40,7 @@
     }
 }
 
-set search_terms [list]
+set search_terms {}
 foreach attr [concat search_text $search_attribs] {
     if {[info exists $attr] && [set $attr] ne ""} {
 	lappend search_terms $attr [set $attr]
@@ -83,7 +83,7 @@
 	# does the user have a local account?
 	set local_account_p 0
 	set user_id ""
-	set status [list]
+	set status {}
 	db_0or1row user_exists_p "select user_id from cc_users where upper(username) = upper(:user) and upper(email) = upper(:email)"
 	if {$user_id eq ""} {
 	    set group_member_p 0
Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	25 Apr 2018 19:47:46 -0000	1.15
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	26 Apr 2018 08:56:37 -0000	1.16
@@ -704,7 +704,7 @@
     if { [llength $matches] < 1 } {
         return [list]
     } else {
-	set usernames [list]
+	set usernames {}
 	foreach user $matches { 
 	    lappend usernames [lindex $user 3] 
 	}
Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/bug-tracker/www/bug.tcl	25 Apr 2018 19:47:46 -0000	1.55
+++ openacs-4/packages/bug-tracker/www/bug.tcl	26 Apr 2018 08:56:37 -0000	1.56
@@ -98,7 +98,7 @@
 ns_log Notice "actions: enabled_action_id: '${enabled_action_id}'"
 
 # Buttons
-set actions [list]
+set actions {}
 if { $enabled_action_id eq "" } {
 
     #ns_log Notice "actions: case_id: $case_id"
@@ -232,7 +232,7 @@
 }
 
 # TODO: Export filters
-set filters [list]
+set filters {}
 foreach name [bug_tracker::get_export_variables] { 
     if { [info exists $name] } {
         lappend filters [list "${name}:text(hidden),optional" [list value [set $name]]]
Index: openacs-4/packages/bug-tracker/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/index.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/bug-tracker/www/index.tcl	14 May 2016 11:10:45 -0000	1.22
+++ openacs-4/packages/bug-tracker/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.23
@@ -7,7 +7,7 @@
 } [bug_tracker::get_page_variables]
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
 set user_id [ad_conn user_id]
 bug_tracker::get_pretty_names -array pretty_names
Index: openacs-4/packages/bug-tracker/www/admin/category-defaults.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/category-defaults.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/admin/category-defaults.tcl	25 Feb 2005 17:08:12 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/admin/category-defaults.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -8,7 +8,7 @@
 
 array set default_configs [bug_tracker::get_default_configurations]
 
-set options [list]
+set options {}
 
 foreach name [lsort -ascii [array names default_configs]] {
     lappend options [list $name $name]
Index: openacs-4/packages/bug-tracker/www/admin/initial-setup.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/admin/initial-setup.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/admin/initial-setup.tcl	27 Apr 2004 12:33:22 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/admin/initial-setup.tcl	26 Apr 2018 08:56:37 -0000	1.4
@@ -8,7 +8,7 @@
 
 array set default_configs [bug_tracker::get_default_configurations]
 
-set options [list]
+set options {}
 
 foreach name [lsort -ascii [array names default_configs]] {
     lappend options [list $name $name]
Index: openacs-4/packages/calendar/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/admin/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/calendar/www/admin/index.tcl	7 Aug 2017 23:48:05 -0000	1.9
+++ openacs-4/packages/calendar/www/admin/index.tcl	26 Apr 2018 08:56:37 -0000	1.10
@@ -13,7 +13,7 @@
 
 set package_id [ad_conn package_id]
 set page_title [_ calendar.lt_Calendar_Administrati]
-set context [list]
+set context {}
 
 db_multirow calendars select_calendars {
     select c.calendar_name, 
Index: openacs-4/packages/cards-portlet/www/cards-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cards-portlet/www/cards-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cards-portlet/www/cards-portlet.tcl	10 Jun 2005 08:46:09 -0000	1.1
+++ openacs-4/packages/cards-portlet/www/cards-portlet.tcl	26 Apr 2018 08:56:37 -0000	1.2
@@ -31,7 +31,7 @@
 set user_id [ad_conn user_id]
 set sep_package_ids [join $list_of_package_ids ", "]
 if {[llength $list_of_package_ids] == 1} { set single_p "t"} else {set single_p "f"}
-set context [list]
+set context {}
 set shaded_p $config(shaded_p)
 set cards_url "[ad_conn package_url]/cards/cards"
 set community_id [dotlrn_community::get_community_id]
Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/categories/tcl/widget-procs.tcl	25 Apr 2018 19:47:46 -0000	1.25
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	26 Apr 2018 08:56:37 -0000	1.26
@@ -127,7 +127,7 @@
     foreach mapped_tree $mapped_trees {
 	lassign $mapped_tree tree_id tree_name subtree_id assign_single_p require_category_p widget
 	set tree_name [ns_quotehtml [lang::util::localize $tree_name]]
-	set one_tree [list]
+	set one_tree {}
 
         if { $require_category_p == "t" } { 
             set required_mark "<span class=\"form-required-mark\">*</span>"
@@ -213,7 +213,7 @@
 
     # QUIRK: ns_querygetall returns a single-element list {{}} for no values
     if { [string equal $values {{}}] } {
-	set values [list]
+	set values {}
     }
 
     # to mark submission of form for rendering element in case of invalid data
@@ -250,7 +250,7 @@
     }
 
     if { $tree_id eq "" } {
-	set trees [list]
+	set trees {}
         foreach tree [category_tree::get_mapped_trees $package_id] {
 	    lassign $tree tree_id tree_name subtree_id assign_single_p require_category_p
 	    if {$require_category_p == "t" || ![info exists element(optional)]} {
Index: openacs-4/packages/categories/www/cadmin/tree-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-view.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/categories/www/cadmin/tree-view.tcl	19 Jan 2018 14:50:04 -0000	1.20
+++ openacs-4/packages/categories/www/cadmin/tree-view.tcl	26 Apr 2018 08:56:37 -0000	1.21
@@ -75,7 +75,7 @@
     }
 }
 
-set elements [list]
+set elements {}
 
 if { $can_write_p } {
     lappend elements edit {
@@ -130,8 +130,8 @@
     }
 }
 
-set actions [list]
-set bulk_actions [list]
+set actions {}
+set bulk_actions {}
 if { $can_write_p } {
     set bulk_actions {
 	"#categories.Delete#" "category-delete" "#categories.Delete_category_link_title#"
Index: openacs-4/packages/chat/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/chat/www/index.tcl	20 Jan 2018 22:56:50 -0000	1.14
+++ openacs-4/packages/chat/www/index.tcl	26 Apr 2018 08:56:37 -0000	1.15
@@ -16,7 +16,7 @@
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
-set actions [list]
+set actions {}
 set room_create_p [permission::permission_p -object_id $package_id -privilege chat_room_create]
 set default_client [parameter::get -parameter "DefaultClient" -default "ajax"]
 set warning ""
Index: openacs-4/packages/chat-includelet/lib/chat-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat-includelet/lib/chat-includelet.tcl	13 Aug 2008 23:48:28 -0000	1.1
+++ openacs-4/packages/chat-includelet/lib/chat-includelet.tcl	26 Apr 2018 08:56:37 -0000	1.2
@@ -1,6 +1,6 @@
 set chat_url "[ad_conn package_url]/chat/"
 
-set context [list]
+set context {}
 set user_id [ad_conn user_id]
 set room_create_p [ad_permission_p $user_id chat_room_create]
 set default_mode [ad_parameter DefaultClient chat "ajax"]
Index: openacs-4/packages/clickthrough/www/admin/report.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/clickthrough/www/admin/report.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/clickthrough/www/admin/report.tcl	4 Sep 2002 08:35:44 -0000	1.2
+++ openacs-4/packages/clickthrough/www/admin/report.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -18,6 +18,6 @@
 
 set package_name [clickthrough_parent_package_instance_name]
 
-set context [list]
+set context {}
 
 ad_return_template
Index: openacs-4/packages/cms/www/modules/items/publish-status.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/publish-status.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/cms/www/modules/items/publish-status.tcl	16 May 2005 03:06:16 -0000	1.9
+++ openacs-4/packages/cms/www/modules/items/publish-status.tcl	26 Apr 2018 08:56:38 -0000	1.10
@@ -20,7 +20,7 @@
 
 # Build a sentence describing the publishing status
 
-set actions [list]
+set actions {}
 
 switch $info(publish_status) {
 
Index: openacs-4/packages/connections/tcl/connections-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/connections/tcl/connections-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/connections/tcl/connections-procs.tcl	7 Apr 2006 08:11:45 -0000	1.1
+++ openacs-4/packages/connections/tcl/connections-procs.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -69,7 +69,7 @@
 	set category_ids [category::get_mapped_categories -tree_id $tree_id $object_id]
 
 	# generate the list of connection keywords with the appropriate links for display
-	set connections [list]
+	set connections {}
 	set preurl [connections::get_url]
 
 	foreach id $category_ids {
Index: openacs-4/packages/connections/www/xmlhttp/getlatestobj.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/connections/www/xmlhttp/getlatestobj.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/connections/www/xmlhttp/getlatestobj.tcl	7 Apr 2006 08:11:46 -0000	1.1
+++ openacs-4/packages/connections/www/xmlhttp/getlatestobj.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -12,7 +12,7 @@
 
 db_multirow objectlist "getobjects" "select a.object_id, b.title, a.category_id, b.object_type, c.pretty_name from category_object_map a, acs_objects b, acs_object_types c where a.object_id=b.object_id and b.object_type=c.object_type and a.category_id=:category_id" { }
 
-set objlist [list]
+set objlist {}
 
 template::multirow foreach objectlist {
 	lappend objlist "$title ($pretty_name)"
Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.74 -r1.75
--- openacs-4/packages/contacts/lib/contacts.tcl	25 Apr 2018 19:47:46 -0000	1.74
+++ openacs-4/packages/contacts/lib/contacts.tcl	26 Apr 2018 08:56:38 -0000	1.75
@@ -1,7 +1,7 @@
-set required_param_list [list]
+set required_param_list {}
 set optional_param_list [list base_url extend_p extend_values attr_val_name]
 set default_param_list  [list orderby format query page page_size package_id search_id group_id]
-set optional_unset_list [list]
+set optional_unset_list {}
 
 # default values for default params
 set _orderby "first_names,asc"
@@ -149,7 +149,7 @@
 }
 callback contacts::bulk_actions -multirow "bulk_acts"
 
-set bulk_actions [list]
+set bulk_actions {}
 template::multirow foreach bulk_acts {
     lappend bulk_actions $pretty $link $detailed
 }
@@ -288,7 +288,7 @@
 }
 
 
-set elements [list]
+set elements {}
 lappend elements contact [list \
 			      label {<span style=\"float: right; font-weight: normal; font-size: smaller\">$name_label</a>} \
 			      display_template { 
@@ -360,7 +360,7 @@
 set date_format [lc_get formbuilder_date_format]
 
 
-set actions [list]
+set actions {}
 if { $admin_p && [exists_and_not_null search_id] } {
     set actions [list "[_ contacts.Set_default_extend]" "admin/ext-search-options?search_id=$search_id" "[_ contacts.Set_default_extend]" ]
 }
@@ -379,17 +379,17 @@
     -object_type $actual_object_type
 
 
-set add_columns [list]
-set remove_columns [list]
-set db_extend_columns [list]
+set add_columns {}
+set remove_columns {}
+set db_extend_columns {}
 if { $search_id ne "" } {
     # now we get the extensions for this specific search
     set db_extend_columns [contact::search::get_extensions -search_id $search_id]
 }
 set combined_extended_columns [lsort -unique [concat $db_extend_columns $extended_columns]]
 
 # we run through the multirow here to determine wether or not the columns are allowed
-set report_elements [list]
+set report_elements {}
 template::multirow foreach ext {
     set selected_p 0
     set immutable_p 0
@@ -599,7 +599,7 @@
     
     set keys {}
     template::multirow foreach contacts {
-	set key [list]
+	set key {}
 	foreach {element details} $report_elements {
 	    if { $element ne "party_id" } {
 		lappend key [set $element]
Index: openacs-4/packages/contacts/lib/email-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email-search.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/email-search.tcl	25 Apr 2018 19:47:46 -0000	1.8
+++ openacs-4/packages/contacts/lib/email-search.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -366,7 +366,7 @@
 
 		set date [lc_time_fmt [dt_sysdate] "%q"]
 		
-		set values [list]
+		set values {}
 		foreach element [list first_names last_name salutation name date username] {
 		    lappend values [list "{$element}" [set $element]]
 		}
Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/contacts/lib/email.tcl	25 Apr 2018 19:47:46 -0000	1.41
+++ openacs-4/packages/contacts/lib/email.tcl	26 Apr 2018 08:56:38 -0000	1.42
@@ -28,7 +28,7 @@
 # Somehow when the form is submited the party_ids values became
 # only one element of a list, this avoid that problem
 
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     if {![empty_string_p $party_id]} {
 	lappend recipients [list "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a> ([contact::message::email_address -party_id $party_id])" $party_id]
@@ -247,7 +247,7 @@
 	set attribute_id [attribute::id -object_type "person" -attribute_name "salutation"]
 	    
 	# List to store know which emails received the message
-	set recipients_addr [list]
+	set recipients_addr {}
 
 	set from [ad_conn user_id]
 	set from_addr [contact::email -party_id $from]
Index: openacs-4/packages/contacts/lib/letter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/letter.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/lib/letter.tcl	25 Apr 2018 19:47:46 -0000	1.13
+++ openacs-4/packages/contacts/lib/letter.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -132,7 +132,7 @@
 	    set content_html "${content_html}\n\n${footer}"
 	}
 
-	set messages [list]
+	set messages {}
 	set date [join [template::util::date::get_property linear_date_no_time $date] "-"]
 
 	if { $include_address eq "1" } {
Index: openacs-4/packages/contacts/lib/list-parties-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/list-parties-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/list-parties-add.tcl	29 Jun 2006 10:54:51 -0000	1.2
+++ openacs-4/packages/contacts/lib/list-parties-add.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -23,7 +23,7 @@
 }
 
 if { [exists_and_not_null party_id] } {
-    set party_ids [list]
+    set party_ids {}
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -47,7 +47,7 @@
 set peeraddr [ad_conn peeraddr]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 }
Index: openacs-4/packages/contacts/lib/list-parties-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/list-parties-remove.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/list-parties-remove.tcl	29 Jun 2006 10:54:51 -0000	1.2
+++ openacs-4/packages/contacts/lib/list-parties-remove.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -23,7 +23,7 @@
 }
 
 if { [exists_and_not_null party_id] } {
-    set party_ids [list]
+    set party_ids {}
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -47,7 +47,7 @@
 set peeraddr [ad_conn peeraddr]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 }
Index: openacs-4/packages/contacts/lib/oo_mailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/contacts/lib/oo_mailing.tcl	14 Dec 2006 09:17:10 -0000	1.20
+++ openacs-4/packages/contacts/lib/oo_mailing.tcl	26 Apr 2018 08:56:38 -0000	1.21
@@ -196,7 +196,7 @@
 	set num_of_users [llength $party_ids]
 	set seconds_to_finish [expr $num_of_users * $seconds_per_user]
 	set package_id [ad_conn package_id]
-	set pdf_filenames [list]
+	set pdf_filenames {}
 	
 	set from [ad_conn user_id]
 	set from_addr [contact::email -party_id $from]
@@ -297,7 +297,7 @@
 		}
 
 		set to_addr [contact::message::email_address -party_id $party_id]		
-		set values [list]
+		set values {}
 		foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		    lappend values [list "{$element}" [set $element]]
 		}
Index: openacs-4/packages/contacts/lib/werbemailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/werbemailing.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/lib/werbemailing.tcl	13 Dec 2006 13:17:52 -0000	1.4
+++ openacs-4/packages/contacts/lib/werbemailing.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -79,7 +79,7 @@
 
 	template::multirow create messages revision_id to_addr to_party_id subject content_body
 
-	set file_revisions [list]
+	set file_revisions {}
 	
 	# We need to set the original date here
 	set orig_date $date
@@ -162,7 +162,7 @@
 		    set locale [lang::user::site_wide_locale -user_id $party_id]
 		}
 		
-		set values [list]
+		set values {}
 		foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		    lappend values [list "{$element}" [set $element]]
 		}
Index: openacs-4/packages/contacts/tcl/contact-employee-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-employee-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	25 Apr 2018 19:47:46 -0000	1.6
+++ openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -244,7 +244,7 @@
     if {$phone == "" && [person::person_p -party_id $employee_id]} {
 
 	# Get employers, if any
-	set employers [list]
+	set employers {}
 	set employers [contact::util::get_employers -employee_id $employee_id -package_id $package_id]
 	
 	# If employer(s) exist
Index: openacs-4/packages/contacts/www/bulk-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/bulk-update.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/www/bulk-update.tcl	15 Feb 2006 10:06:36 -0000	1.7
+++ openacs-4/packages/contacts/www/bulk-update.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -22,7 +22,7 @@
 set user_id [ad_conn user_id]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 if { [exists_and_not_null party_id] } {
     foreach party_id $party_id {
         contact::require_visiblity -party_id $party_id
@@ -37,13 +37,13 @@
 set person_count [llength $person_ids]
 
 
-set people [list]
+set people {}
 foreach party_id $person_ids {
     lappend people "<a href=\"[contact::url -party_id $party_id]\">[person::name -person_id $party_id]</a>"
 }
 set people [join $people ", "]
 
-set organizations [list]
+set organizations {}
 foreach party_id $organization_ids {
     lappend organizations "<a href=\"[contact::url -party_id $party_id]\">[organizations::name -organization_id $party_id]</a>"
 }
Index: openacs-4/packages/contacts/www/contact-groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-groups.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/contact-groups.tcl	15 Feb 2006 10:06:36 -0000	1.4
+++ openacs-4/packages/contacts/www/contact-groups.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -12,7 +12,7 @@
 
 set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 
 lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 
Index: openacs-4/packages/contacts/www/group-parties-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-add.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/www/group-parties-add.tcl	26 Jun 2007 02:53:13 -0000	1.9
+++ openacs-4/packages/contacts/www/group-parties-add.tcl	26 Apr 2018 08:56:38 -0000	1.10
@@ -16,7 +16,7 @@
     }
 }
 if { [exists_and_not_null party_id] } {
-    set party_ids [list]
+    set party_ids {}
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -31,7 +31,7 @@
 set peeraddr [ad_conn peeraddr]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 }
Index: openacs-4/packages/contacts/www/group-parties-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-remove.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/www/group-parties-remove.tcl	25 Apr 2018 19:47:47 -0000	1.12
+++ openacs-4/packages/contacts/www/group-parties-remove.tcl	26 Apr 2018 08:56:38 -0000	1.13
@@ -33,7 +33,7 @@
 	db_transaction {
 	    set message {}
 	    foreach group_id $group_ids {
-		set contacts [list]
+		set contacts {}
 		foreach party_id $party_ids {
 		    # relation_add verifies that they aren't already in the group
 		    set contact_name [contact::name -party_id $party_id] 
@@ -80,7 +80,7 @@
 set user_id [ad_conn user_id]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 }
Index: openacs-4/packages/contacts/www/group-party.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-party.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/www/group-party.tcl	15 Feb 2006 10:06:36 -0000	1.3
+++ openacs-4/packages/contacts/www/group-party.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -11,7 +11,7 @@
 } -validate {
 }
 if { [exists_and_not_null party_id] } {
-    set party_ids [list]
+    set party_ids {}
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -23,7 +23,7 @@
 set user_id [ad_conn user_id]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     contact::require_visiblity -party_id $party_id
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
Index: openacs-4/packages/contacts/www/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/messages.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/www/messages.tcl	28 Jul 2005 13:41:50 -0000	1.2
+++ openacs-4/packages/contacts/www/messages.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -23,7 +23,7 @@
 		       -list [db_list_of_lists get_message_types { select pretty_name, message_type from contact_message_types}] \
 		      ]
 
-set actions [list]
+set actions {}
 foreach type $message_types {
     lappend actions "[_ contacts.Add] [lindex $type 0]" [export_vars -base message-ae -url [list [list message_type [lindex $type 1]]]] "[_ contacts.Add] [lindex $type 0]"
     set type_pretty_name([lindex $type 1]) [lindex $type 0]
Index: openacs-4/packages/contacts/www/relationship-bulk-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-bulk-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/relationship-bulk-add.tcl	12 May 2006 20:35:59 -0000	1.5
+++ openacs-4/packages/contacts/www/relationship-bulk-add.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -15,15 +15,15 @@
 
 set title [_ contacts.Add_Relationship]
 set context [list $title]
-set names [list]
-set contact_type [list]
+set names {}
+set contact_type {}
 if { ![exists_and_not_null party_ids] } {
     set party_ids $party_id
 }
-set organizations [list]
-set organization_ids [list]
-set people [list]
-set person_ids [list]
+set organizations {}
+set organization_ids {}
+set people {}
+set person_ids {}
 foreach party $party_ids {
     contact::require_visiblity -party_id $party
     if { [contact::type -party_id $party] eq "organization" } {
Index: openacs-4/packages/contacts/www/admin/full-organizations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/full-organizations.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/admin/full-organizations.tcl	27 Apr 2006 06:45:00 -0000	1.1
+++ openacs-4/packages/contacts/www/admin/full-organizations.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -9,7 +9,7 @@
 } {
 }
 
-set party_ids [list]
+set party_ids {}
 db_multirow organizations get_organizations "
     select party_id,
            name,
@@ -49,7 +49,7 @@
 
 
 set output {"Organization ID","Name","Email","URL"}
-set extended_columns [list]
+set extended_columns {}
 template::multirow foreach ext {
     if { ( $type eq "organization" || $type eq "party" ) && [lsearch $preset_columns $key] >= 0 } {
 	# we aren't adding the columns that are provided by the parties and organizations tables
@@ -88,7 +88,7 @@
 
 # we create a command here because it more efficient then
 # iterating over all the columns in the multirow foreach
-set command [list]
+set command {}
 foreach column [template::multirow columns organizations] {
     lappend command "\[template::list::csv_quote \$${column}\]"
 }
Index: openacs-4/packages/contacts/www/admin/full-people.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/full-people.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/admin/full-people.tcl	27 Apr 2006 06:45:00 -0000	1.1
+++ openacs-4/packages/contacts/www/admin/full-people.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -9,7 +9,7 @@
 } {
 }
 
-set party_ids [list]
+set party_ids {}
 db_multirow people get_people "
     select party_id,
            first_names,
@@ -50,7 +50,7 @@
 
 
 set output {"Person ID","First Names","Last Name","Email","URL"}
-set extended_columns [list]
+set extended_columns {}
 template::multirow foreach ext {
     if { ( $type eq "person" || $type eq "party" ) && [lsearch $preset_columns $key] >= 0 } {
 	# we aren't adding the columns that are provided by the parties and persons tables
@@ -89,7 +89,7 @@
 
 # we create a command here because it more efficient then
 # iterating over all the columns in the multirow foreach
-set command [list]
+set command {}
 foreach column [template::multirow columns people] {
     lappend command "\[template::list::csv_quote \$${column}\]"
 }
Index: openacs-4/packages/cronjob/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cronjob/www/index.tcl	29 May 2009 09:02:11 -0000	1.4
+++ openacs-4/packages/cronjob/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -31,4 +31,4 @@
 
 # Set the context bar.
 
-set context [list]
+set context {}
Index: openacs-4/packages/curriculum/lib/curriculum-ave.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/curriculum-ave.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/curriculum/lib/curriculum-ave.tcl	5 Jul 2004 14:07:20 -0000	1.13
+++ openacs-4/packages/curriculum/lib/curriculum-ave.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -16,7 +16,7 @@
 
 set package_id [curriculum::conn package_id]
 set user_id [ad_conn user_id]
-set actions [list]
+set actions {}
 set element_mode {}
 set desc_help_text "[_ curriculum.lt_This_text_should_desc]"
 
Index: openacs-4/packages/curriculum-central/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/curriculum-central/www/index.tcl	2 Feb 2006 11:45:49 -0000	1.5
+++ openacs-4/packages/curriculum-central/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -7,7 +7,7 @@
 }
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
Index: openacs-4/packages/curriculum-central/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-central/www/admin/index.tcl	20 Nov 2005 23:51:11 -0000	1.1
+++ openacs-4/packages/curriculum-central/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -7,4 +7,4 @@
 }
 
 set page_title "[_ curriculum-central.admin]"
-set context [list]
+set context {}
Index: openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl	25 Apr 2018 19:47:47 -0000	1.23
+++ openacs-4/packages/curriculum-central/www/coordinate/uos-edit.tcl	26 Apr 2018 08:56:38 -0000	1.24
@@ -59,7 +59,7 @@
 }
 
 # Buttons
-set actions [list]
+set actions {}
 if { $enabled_action_id eq "" } {
     foreach available_enabled_action_id [workflow::case::get_available_enabled_action_ids -case_id $case_id] {
 	workflow::case::enabled_action_get -enabled_action_id $available_enabled_action_id -array enabled_action
@@ -475,7 +475,7 @@
 
 
 # Export filters
-set filters [list]
+set filters {}
 foreach name [curriculum_central::get_export_variables] {
     if { [info exists $name] } {
         lappend filters [list "${name}:text(hidden),optional" [list value [set $name]]]
@@ -603,7 +603,7 @@
 
 
 	# For Grade Descriptor fields
-	set grade_descriptors [list]
+	set grade_descriptors {}
 
 	if { $enabled_action_id ne "" } {
 	    # Get the grade descriptors, and the information
@@ -626,7 +626,7 @@
     } elseif { $action_info(short_name) eq "edit_schedule" } {
 
 	# For schedule fields
-	set schedule_fields [list]
+	set schedule_fields {}
 
 	if { $enabled_action_id ne "" } {
 	    # Get the schedule fields, and the information
Index: openacs-4/packages/curriculum-tracker/www/import-degree.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-tracker/www/import-degree.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-tracker/www/import-degree.tcl	4 Apr 2006 06:50:03 -0000	1.1
+++ openacs-4/packages/curriculum-tracker/www/import-degree.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -9,7 +9,7 @@
 }
 
 set page_title "[_ curriculum-tracker.import_degree]"
-set context [list]
+set context {}
 set package_id [ad_conn package_id]
 set owner_id [ad_conn user_id]
 
Index: openacs-4/packages/curriculum-tracker/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum-tracker/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/curriculum-tracker/www/index.tcl	4 Apr 2006 06:50:03 -0000	1.1
+++ openacs-4/packages/curriculum-tracker/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -7,7 +7,7 @@
 }
 
 set page_title [ad_conn instance_name]
-set context [list]
+set context {}
 set package_id [ad_conn package_id]
 set owner_id [ad_conn user_id]
 
Index: openacs-4/packages/datamanager/www/import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/import.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/import.tcl	22 Jun 2006 14:38:27 -0000	1.1
+++ openacs-4/packages/datamanager/www/import.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -3,7 +3,7 @@
   {mode:optional ""}
 } -properties {
 }
-set context [list]
+set context {}
 set community_id [dotlrn_community::get_community_id]
 #only administrator or professor must be allowed to enter this page
 dotlrn::require_user_admin_community  -community_id $community_id
Index: openacs-4/packages/datamanager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/datamanager/www/index.tcl	22 Jun 2006 14:38:27 -0000	1.2
+++ openacs-4/packages/datamanager/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -2,7 +2,7 @@
 } -query {
 } -properties {
 }
-set context [list]
+set context {}
 set community_id [dotlrn_community::get_community_id]
 
 set user_id [ad_conn user_id]
Index: openacs-4/packages/datamanager/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/datamanager/www/admin/index.tcl	22 Jun 2006 14:41:18 -0000	1.1
+++ openacs-4/packages/datamanager/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -2,7 +2,7 @@
 } -query {
 } -properties {
 }
-set context [list]
+set context {}
 set community_id [dotlrn_community::get_community_id]
 
 #dotlrn::require_user_admin_community  -community_id $community_id
Index: openacs-4/packages/dbm/www/createtable2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dbm/www/createtable2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dbm/www/createtable2.tcl	7 Jun 2006 10:43:18 -0000	1.1
+++ openacs-4/packages/dbm/www/createtable2.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -8,14 +8,14 @@
 
 
 # now retrieve the data
-set field_ids [list]
+set field_ids {}
 for {set i 0} {$i<$amount} {incr i} {
     lappend field_ids f_$i
 }
 
 set form_name createtable2
 
-set elements [list]
+set elements {}
 for {set i 0} {$i<$amount} {incr i} {
     lappend elements $i
 }
Index: openacs-4/packages/diagram/tcl/diagram-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/diagram/tcl/diagram-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/diagram/tcl/diagram-procs.tcl	25 Apr 2018 19:47:47 -0000	1.3
+++ openacs-4/packages/diagram/tcl/diagram-procs.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -303,7 +303,7 @@
     set diagram_properties(count) $count
 
     for {set j 1} {$j <= [llength $diagram_properties(display_elements)]} {incr j} {
-	set col$j [list] 
+	set col$j {} 
     }
 
     #iterate over the multirow
@@ -343,7 +343,7 @@
 
 	#we need to update min and max
 
-	set list [list]
+	set list {}
 
 	#its the x axis
 	if {$xy == 1} {
Index: openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl	28 May 2007 14:11:18 -0000	1.8
+++ openacs-4/packages/dotfolio/tcl/dotfolio-procs.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -18,7 +18,7 @@
 	@see dotfolio::packages
     } {
 	# need to strip nodes which have no mounted package...
-	set packages [list]
+	set packages {}
 	foreach package [site_node::get_children -all -node_id $node_id -element package_id] {
 	    if {![empty_string_p $package]} {
 		lappend packages $package
Index: openacs-4/packages/dotlrn/www/admin/cockpit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/cockpit.tcl,v
diff -u -r1.5 -r1.6
Binary files differ
Index: openacs-4/packages/dotlrn-admin/www/admin/cockpit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/cockpit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/cockpit.tcl	28 Jun 2015 12:09:34 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/cockpit.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -79,7 +79,7 @@
     }
 
 
-set users [list]
+set users {}
 
 set count 0
 
Index: openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	29 Mar 2018 23:28:10 -0000	1.6
+++ openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -24,7 +24,7 @@
 set tree_length [llength $tree_list]
 
 # Create a list of values for the list filter
-set tree [list]
+set tree {}
 
 foreach element $tree_list {
     set ident [lindex $element 3]
Index: openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	2 Sep 2008 21:13:45 -0000	1.13
+++ openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -38,7 +38,7 @@
 if { [exists_and_not_null zone_f] } { append currently_viewing ", Zone"}
 if { [exists_and_not_null zone_f] } { append currently_viewing ", Instructor"}
 
-set calendar_id_list [list]
+set calendar_id_list {}
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
@@ -63,8 +63,8 @@
 set form [rp_getform]
 
 set category_trees [concat [category_tree::get_mapped_trees $cc_package_id] [category_tree::get_mapped_trees $package_id]]
-set course_categories [list]
-set section_categories [list]
+set course_categories {}
+set section_categories {}
 
 foreach tree [category_tree::get_mapped_trees $cc_package_id] {
     set tree_name [lindex $tree 1]
@@ -160,7 +160,7 @@
     }
 
     # Create a list of values for the list filter
-    set $name [list]
+    set $name {}
 
     foreach element $tree_list {
 	if { ! $show_used_categories_only_p || [lsearch $used_categories [lindex $element 0]] != -1 } {
@@ -317,7 +317,7 @@
 
 set date 
 set item_template "one-section?cal_item_id=\$item_id"
-set export [list]
+set export {}
 foreach {name discard} $filters {
     lappend export $name
 }
Index: openacs-4/packages/dotlrn-ecommerce/lib/section.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/section.tcl,v
diff -u -r1.44 -r1.45
--- openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	25 Apr 2018 19:47:47 -0000	1.44
+++ openacs-4/packages/dotlrn-ecommerce/lib/section.tcl	26 Apr 2018 08:56:38 -0000	1.45
@@ -41,7 +41,7 @@
 #set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
 
 set package_id [ad_conn package_id]
-set validate [list]
+set validate {}
 set show_price_option_p [dotlrn_ecommerce::util::param::get -default 1 ShowPriceOptionP]
 
 catch {
@@ -163,7 +163,7 @@
 	# community_id is valid
 	# list users
 	set _instructors [dotlrn_community::list_users  $instructor_community_id]
-	set instructors_list [list]
+	set instructors_list {}
 	foreach instructor $_instructors {
 	    set instructor_user_id [ns_set get $instructor user_id]
 	    set instructor_name "[ns_set get $instructor first_names] [ns_set get $instructor last_name]"
@@ -183,7 +183,7 @@
 } else {
 	# community_id is valid
 	set _assistants [dotlrn_community::list_users  $assistant_community_id]
-	set assistants_list [list]
+	set assistants_list {}
 	foreach assistant $_assistants {
 		set assistant_user_id [ns_set get $assistant user_id]
 		set assistant_name "[ns_set get $assistant first_names] [ns_set get $assistant last_name]"
@@ -228,7 +228,7 @@
 }
 
 
-set tree_options [list]
+set tree_options {}
 if { [parameter::get -package_id [ad_conn package_id] -parameter GradePrerequisitesP -default 1 ] } {
 	db_foreach prerequisites {
 	select tree_id
Index: openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	15 Sep 2017 07:38:10 -0000	1.88
+++ openacs-4/packages/dotlrn-ecommerce/lib/tree-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.89
@@ -51,8 +51,8 @@
 set form [rp_getform]
 
 set category_trees [concat [category_tree::get_mapped_trees $cc_package_id] [category_tree::get_mapped_trees $package_id]]
-set course_categories [list]
-set section_categories [list]
+set course_categories {}
+set section_categories {}
 
 foreach tree [category_tree::get_mapped_trees $cc_package_id] {
     set tree_name [lindex $tree 1]
@@ -135,7 +135,7 @@
     db_1row get_tree_name { }
 
     # Create a list of values for the list filter
-    set $name [list]
+    set $name {}
 
     foreach element $tree_list {
 	if { ! $show_used_categories_only_p || [lsearch $used_categories [lindex $element 0]] != -1 } {
@@ -211,7 +211,7 @@
 set instructor_community_id [parameter::get -package_id [ad_conn package_id] -parameter InstructorCommunityId -default 0 ]
 set _instructors [dotlrn_community::list_users $instructor_community_id]
 
-set __instructors [list]
+set __instructors {}
 if { [llength $_instructors] == 0 } {
     set _instructors 0
     set instructors_filter ""
@@ -265,7 +265,7 @@
     set show_hidden_not_exists_clause ""
 }
 
-set actions [list]
+set actions {}
 if {$show_filters_p} {
     lappend actions "[_ dotlrn-ecommerce.View_All]" ? "[_ dotlrn-ecommerce.View_All]"
 
@@ -615,8 +615,8 @@
 
 	set instructors [util_memoize [list dotlrn_ecommerce::section::instructors $community_id $__instructors] $memoize_max_age]
 	
-	set instructor_names [list]
-	set instructor_ids [list]
+	set instructor_names {}
+	set instructor_ids {}
     set bios_present_p 0
 	foreach instructor $instructors {
 	    lappend instructor_names [lindex $instructor 1]
Index: openacs-4/packages/dotlrn-ecommerce/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/user-new.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/dotlrn-ecommerce/lib/user-new.tcl	13 Jun 2006 17:03:13 -0000	1.13
+++ openacs-4/packages/dotlrn-ecommerce/lib/user-new.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -56,7 +56,7 @@
 set formlen [llength $form]
 
 set allow_no_email_p [parameter::get -parameter AllowNoEmailForPurchaser]
-set validate [list]
+set validate {}
 
 # if { $user_type == "purchaser" && $allow_no_email_p } { }
 if { $allow_no_email_p } {
Index: openacs-4/packages/dotlrn-ecommerce/www/application-bulk-payments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/application-bulk-payments.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-ecommerce/www/application-bulk-payments.tcl	15 Sep 2017 07:38:10 -0000	1.2
+++ openacs-4/packages/dotlrn-ecommerce/www/application-bulk-payments.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -87,8 +87,8 @@
 }
 
 set method_count 0
-set new_payment_methods [list]
-set validate [list]
+set new_payment_methods {}
+set validate {}
 foreach payment_method [split $payment_methods] {
     set _payment_method [split $payment_method :]
     if { [llength $_payment_method] == 2 } {
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/membership-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/membership-add.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-ecommerce/www/admin/membership-add.tcl	13 Jun 2006 17:03:12 -0000	1.8
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/membership-add.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -84,7 +84,7 @@
     ns_set put $form __refreshing_p 0
 }
 
-set validate [list]
+set validate {}
 
 if { ( [empty_string_p $patron] || [llength $patron_list] == 1 ) && ! $patron_id } {
     ad_form -name "patron" -export { {patron_id 0} } -form {
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	13 Jun 2006 17:03:12 -0000	1.24
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/process-purchase-course.tcl	26 Apr 2018 08:56:38 -0000	1.25
@@ -78,7 +78,7 @@
     dotlrn_ecommerce::check_user -user_id $participant_id
 }
 
-set validate [list]
+set validate {}
 
 # Search course or section
 set section_list [linsert [db_list_of_lists sections {
Index: openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	29 Mar 2008 21:19:15 -0000	1.6
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/ecommerce/invoice-payment.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -28,7 +28,7 @@
 set form [rp_getform]
 ns_set delkey $form creditcard_expires
 
-set validate [list]
+set validate {}
 
 set billing_address_id [db_list get_billing_address_id "
         select address_id
@@ -51,7 +51,7 @@
 }
 
 set method_count 0
-set new_payment_methods [list]
+set new_payment_methods {}
 foreach payment_method [split $payment_methods] {
     set _payment_method [split $payment_method :]
     if { [llength $_payment_method] == 2 } {
Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl	21 Jan 2018 00:37:17 -0000	1.23
+++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/checkout-one-form.tcl	26 Apr 2018 08:56:38 -0000	1.24
@@ -158,7 +158,7 @@
 		    set lowest_price [lindex [ec_lowest_price_and_price_name_for_an_item $product_id $user_id $offer_code] 0]
 		}
 	    }
-            set option_list [list]
+            set option_list {}
 	    if { ![empty_string_p $color_choice] } {
 	        lappend option_list "Color: $color_choice"
 	    }
@@ -445,7 +445,7 @@
     select state_name, abbrev from us_states order by state_name
 }] 0 {"Select a state" ""}]
 
-set validate [list]
+set validate {}
 
 ad_form -name checkout -export {billing_address_id shipping_address_id user_id participant_id} -form {
     {bill_to_first_names:text {label "First name(s)"} {html {size 40}}}
@@ -535,7 +535,7 @@
 }
 
 set method_count 0
-set new_payment_methods [list]
+set new_payment_methods {}
 foreach payment_method [split $payment_methods] {
     set _payment_method [split $payment_method :]
     if { [llength $_payment_method] == 2 } {
Index: openacs-4/packages/dotlrn-ecommerce/www/manage/membership-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/membership-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/manage/membership-add.tcl	2 Sep 2008 21:54:48 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/manage/membership-add.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -84,7 +84,7 @@
     ns_set put $form __refreshing_p 0
 }
 
-set validate [list]
+set validate {}
 
 if { ( [empty_string_p $patron] || [llength $patron_list] == 1 ) && ! $patron_id } {
     ad_form -name "patron" -export { {patron_id 0} } -form {
Index: openacs-4/packages/dotlrn-ecommerce/www/manage/ecommerce/invoice-payment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/manage/ecommerce/invoice-payment.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-ecommerce/www/manage/ecommerce/invoice-payment.tcl	2 Sep 2008 21:54:48 -0000	1.1
+++ openacs-4/packages/dotlrn-ecommerce/www/manage/ecommerce/invoice-payment.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -28,7 +28,7 @@
 set form [rp_getform]
 ns_set delkey $form creditcard_expires
 
-set validate [list]
+set validate {}
 
 set billing_address_id [db_list get_billing_address_id "
         select address_id
@@ -51,7 +51,7 @@
 }
 
 set method_count 0
-set new_payment_methods [list]
+set new_payment_methods {}
 foreach payment_method [split $payment_methods] {
     set _payment_method [split $payment_method :]
     if { [llength $_payment_method] == 2 } {
Index: openacs-4/packages/eduwiki/www/admin/eduwiki-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/eduwiki/www/admin/eduwiki-index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/eduwiki/www/admin/eduwiki-index.tcl	7 Oct 2009 19:11:52 -0000	1.1
+++ openacs-4/packages/eduwiki/www/admin/eduwiki-index.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -11,7 +11,7 @@
 }
 
 set page_title "[_ eduwiki.Eduwiki_tasklist_]"
-set context [list]
+set context {}
 # get limit_dates_p
 set limit_dates_p [parameter::get -package_id $package_id \
 		       -parameter with_limit_dates \
Index: openacs-4/packages/eduwiki/www/admin/eduwiki-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/eduwiki/www/admin/eduwiki-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/eduwiki/www/admin/eduwiki-list.tcl	7 Oct 2009 19:11:52 -0000	1.1
+++ openacs-4/packages/eduwiki/www/admin/eduwiki-list.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -12,7 +12,7 @@
 }
 
 set page_title "[_ eduwiki.Eduwiki_pageslist_]"
-set context [list]
+set context {}
 set community_id [dotlrn_community::get_community_id]
 
 # get eduwiki_category
Index: openacs-4/packages/expenses/tcl/expenses-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/expenses/tcl/expenses-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/expenses/tcl/expenses-procs.tcl	4 Aug 2005 06:51:55 -0000	1.7
+++ openacs-4/packages/expenses/tcl/expenses-procs.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -103,7 +103,7 @@
 
 	if { [db_0or1row "get_treeid" "select tree_id from category_tree_translations where name = 'Terms'"] } {
 
-		set terms [list]
+		set terms {}
 		set categories [category::get_mapped_categories $package_id]
 		foreach category_id $categories {
 			if { [category::get_tree $category_id] == $tree_id } {
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.50 -r1.51
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	7 Aug 2017 23:48:11 -0000	1.50
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.51
@@ -68,7 +68,7 @@
     set folder_path ""
 }
 
-set actions [list]
+set actions {}
 
 # for now, invite users to upload, and then they will be asked to
 # login if they are not.
Index: openacs-4/packages/forums/lib/forums/forums-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums/forums-chunk.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/forums/lib/forums/forums-chunk.tcl	7 Apr 2018 19:07:31 -0000	1.22
+++ openacs-4/packages/forums/lib/forums/forums-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.23
@@ -27,7 +27,7 @@
     }
 }
 
-set actions [list]
+set actions {}
 if { $admin_p } {
     lappend actions [_ forums.New_Forum] "admin/forum-new" {}
     lappend actions [_ forums.Administration] "admin/" {}
Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	7 Apr 2018 19:07:31 -0000	1.26
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	26 Apr 2018 08:56:38 -0000	1.27
@@ -32,7 +32,7 @@
     set replies approved_reply_count
 }
 
-set actions [list]
+set actions {}
 
 # new postings are allowed if
 # 0. The user has post-permissions
Index: openacs-4/packages/glossar/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/admin/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/glossar/www/admin/index.tcl	4 Apr 2018 08:11:26 -0000	1.2
+++ openacs-4/packages/glossar/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -10,7 +10,7 @@
 }
 
 set page_title "[_ glossar.Glossar_Administration]"
-set context [list]
+set context {}
 
 set categories_node_id [db_string get_category_node_id {}]
 set categories_url [site_node::get_url -node_id $categories_node_id]
Index: openacs-4/packages/glossary/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossary/www/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/glossary/www/index.tcl	10 Sep 2002 22:23:00 -0000	1.4
+++ openacs-4/packages/glossary/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -28,7 +28,7 @@
 
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 
 ad_require_permission $package_id read
 
Index: openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	5 Apr 2018 14:44:09 -0000	1.9
+++ openacs-4/packages/ims-ent/tcl/ims-ent-parser-procs.tcl	26 Apr 2018 08:56:38 -0000	1.10
@@ -98,7 +98,7 @@
 	    # department has no Parent so far, so we won't look for that now
 	    if {$lookup_level != [parameter::get_from_package_key -package_key ims-ent  -parameter department]} {
 
-		set relationships [list]
+		set relationships {}
 	    
 		foreach relationship_node [xml_node_get_children_by_name $group_node "relationship"] {
 		    set relation [xml_node_get_attribute $relationship_node "relation"]
@@ -252,7 +252,7 @@
 
 	set group_source $source
 
-	set member_list [list]
+	set member_list {}
 
 	foreach member_node [xml_node_get_children_by_name $mem_node "member"] {
 
Index: openacs-4/packages/imsld/www/environment-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/environment-frame.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/imsld/www/environment-frame.tcl	4 Nov 2009 17:09:23 -0000	1.13
+++ openacs-4/packages/imsld/www/environment-frame.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -13,7 +13,7 @@
 
 set frame_header "[_ imsld.Context_info]"
 set page_title $frame_header
-set context [list]
+set context {}
 
 dom createDocument ul doc
 set dom_root [$doc documentElement]
Index: openacs-4/packages/imsld/www/imsld-divset.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-divset.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/imsld/www/imsld-divset.tcl	17 Jun 2009 08:00:01 -0000	1.3
+++ openacs-4/packages/imsld/www/imsld-divset.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -26,4 +26,4 @@
 }
 
 set page_title {}
-set context [list]
+set context {}
Index: openacs-4/packages/imsld/www/monitor-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/monitor-frame.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/imsld/www/monitor-frame.tcl	17 Jun 2009 08:00:01 -0000	1.4
+++ openacs-4/packages/imsld/www/monitor-frame.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -30,7 +30,7 @@
 if { [string eq $self_p "f"] } {
     # display the list of users in order to chose one of them
     set role_instances [imsld::roles::get_role_instances -role_id $role_id -run_id $run_id]
-    set users_in_instances [list]
+    set users_in_instances {}
     foreach instance $role_instances {
         set users_in_instances [concat $users_in_instances [group::get_members -group_id $instance]]
     }
@@ -57,4 +57,4 @@
 }
 
 set page_title {}
-set context [list]
+set context {}
Index: openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	29 Oct 2009 11:09:59 -0000	1.11
+++ openacs-4/packages/imsld/www/admin/imsld-admin-roles.tcl	26 Apr 2018 08:56:38 -0000	1.12
@@ -38,7 +38,7 @@
 set roles_list_names [imsld::roles::get_roles_names -roles_list $roles_list] 
 
 
-set lista [list]
+set lista {}
 lappend lista [list "[_ imsld.Select_a_role]..." 0]
 
 for {set order 0} {$order < [llength $roles_list] } {incr order} {
Index: openacs-4/packages/imsld/www/admin/imsld-finish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-finish.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/imsld/www/admin/imsld-finish.tcl	29 Mar 2018 15:03:01 -0000	1.8
+++ openacs-4/packages/imsld/www/admin/imsld-finish.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -16,13 +16,13 @@
 set roles_list_depth [imsld::roles::get_list_of_roles -imsld_id $imsld_id]
 
 
-set roles_list [list]
+set roles_list {}
 foreach role $roles_list_depth {
     lappend roles_list [lindex $role 0]
 }
 
-set warnings [list]
-set errors [list]
+set warnings {}
+set errors {}
 #para cada role, compruebo todas las condiciones
 foreach role $roles_list {
     set role_info [imsld::roles::get_role_info -role_id $role]
Index: openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl	29 Oct 2009 11:09:59 -0000	1.6
+++ openacs-4/packages/imsld/www/admin/imsld-view-roles.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -27,7 +27,7 @@
 set page_title "[_ imsld.View_Roles]"
 set context [list $page_title]
 
-set lista [list]
+set lista {}
 lappend lista [list "[_ imsld.Select_a_role]..." 0]
 
 for {set order 0} {$order < [llength $roles_list] } {incr order} {
Index: openacs-4/packages/imsld/www/admin/monitor/activity-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/activity-frame.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/imsld/www/admin/monitor/activity-frame.tcl	4 Nov 2009 17:09:23 -0000	1.19
+++ openacs-4/packages/imsld/www/admin/monitor/activity-frame.tcl	26 Apr 2018 08:56:38 -0000	1.20
@@ -34,7 +34,7 @@
 }
 
 set page_title "[_ imsld.lt_Monitoring_One_Activi]"
-set context [list]
+set context {}
 
 if { $activity_item_id ne "" && $activity_id eq "" } {
     set activity_id [content::item::get_live_revision -item_id $activity_item_id]
@@ -82,7 +82,7 @@
     lappend elements finish_date \
         [list label "[_ imsld.Finish_Date]"]
 
-    set users_list [list]
+    set users_list {}
     db_foreach related_user {
         select stat.user_id,
         stat.role_id,
@@ -622,7 +622,7 @@
 		  -revision_id [imsld::get_imsld_from_activity -activity_id $activity_id -activity_type $type]]
 
 content::item::get -item_id $imsld_id -array_name imsld_array
-set res_options [list]
+set res_options {}
 if { $imsld_array(resource_handler) eq "xowiki" } {
     set res_options [imsld::xowiki::page_list]
 } else {
@@ -632,7 +632,7 @@
 			   -package_key "file-storage"]
     
     content::item::get -item_id $imsld_id -array_name imsld_array
-    set res_options [list]
+    set res_options {}
     if { $imsld_array(resource_handler) eq "xowiki" } {
 	set res_options [imsld::xowiki::page_list]
     } else {
@@ -781,7 +781,7 @@
 		     -imsld_id [db_string get_imsld_from_run \
 				    {select imsld_id from imsld_runs where run_id=:run_id}] ]
 	    
-	    set involved_users [list]
+	    set involved_users {}
 	    foreach role $involved_roles {
 		
 		set involved_users [concat $involved_users \
@@ -912,14 +912,14 @@
 	# 		     -imsld_id [db_string get_imsld_from_run \
 	# 				    {select imsld_id from imsld_runs where run_id=:run_id}] ]
 	
-	# 	    set involved_users [list]
+	# 	    set involved_users {}
 	# 	    foreach role $involved_roles {
 	# 		set involved_users [concat $involved_users \
 	# 					[imsld::roles::get_users_in_role \
 	# 					     -role_id [lindex $role 0] -run_id $run_id]]
 	# 	    }
 	
-	# 	    set involved_users [list]
+	# 	    set involved_users {}
 
 	# 	    foreach user_id [lsort -unique $involved_users] { 
 	
Index: openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl	4 Nov 2009 17:09:23 -0000	1.7
+++ openacs-4/packages/imsld/www/admin/monitor/environment-frame.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -12,7 +12,7 @@
 
 set frame_header "[_ imsld.Context_info]"
 set page_title $frame_header
-set context [list]
+set context {}
 
 dom createDocument ul doc
 set dom_root [$doc documentElement]
Index: openacs-4/packages/imsld/www/admin/monitor/individual-report-frame.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/monitor/individual-report-frame.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/imsld/www/admin/monitor/individual-report-frame.tcl	8 Jul 2008 15:35:47 -0000	1.5
+++ openacs-4/packages/imsld/www/admin/monitor/individual-report-frame.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -12,7 +12,7 @@
 }
 
 set page_title "[_ imsld.Individual_Report]"
-set context [list]
+set context {}
 set frame_header "[_ imsld.This]: "
 
 # Fetch the users that are active in the run
@@ -67,7 +67,7 @@
                   [list label "[_ imsld.Finished_Date]"]]
 
 template::multirow create related_activities related_id activity_name type started_time finished_time
-set activities_list [list]
+set activities_list {}
         
 db_foreach related_resources {
     select stat.related_id,
Index: openacs-4/packages/invoices/lib/invoice-items-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/invoice-items-list.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/invoices/lib/invoice-items-list.tcl	3 Apr 2018 20:36:19 -0000	1.7
+++ openacs-4/packages/invoices/lib/invoice-items-list.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -64,7 +64,7 @@
 
 # Elements to construnct row_lists
 if { [exists_and_not_null elements] } {
-    set row_list [list]
+    set row_list {}
     foreach element $elements {
 	if { ![string equal $element "categories"] } {
 	    lappend row_list $element
@@ -79,16 +79,16 @@
 }
 
 # Create the elements for the list template
-set elements [list]
-set categories_filter [list]
+set elements {}
+set categories_filter {}
 
 # We are going to create the elements for each mapped category tree
 if { $categories_p } {
     set categories_trees [db_list_of_lists get_category_trees { }]
     
-    set mapped_objects [list]
-    set multirow_extend [list]
-    set tree_ids [list]
+    set mapped_objects {}
+    set multirow_extend {}
+    set tree_ids {}
     
     foreach tree $categories_trees {
 	set tree_name [lindex $tree 0]
Index: openacs-4/packages/invoices/lib/invoice-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/invoice-list.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/invoices/lib/invoice-list.tcl	4 Aug 2006 15:38:00 -0000	1.18
+++ openacs-4/packages/invoices/lib/invoice-list.tcl	26 Apr 2018 08:56:38 -0000	1.19
@@ -66,7 +66,7 @@
 set invoice_cancel_p [permission::permission_p -party_id $user_id -object_id $package_id -privilege invoice_cancel]
 set return_url [ad_return_url]
 
-set actions [list]
+set actions {}
 if { [info exists organization_id] } {
     set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $organization_id -to_object_type "dotlrn_club"] 0]
     set pm_base_url [apm_package_url_from_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]]
Index: openacs-4/packages/invoices/lib/offer-items-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/offer-items-list.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/invoices/lib/offer-items-list.tcl	3 Apr 2018 20:36:19 -0000	1.8
+++ openacs-4/packages/invoices/lib/offer-items-list.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -64,7 +64,7 @@
 
 # Elements to construnct row_lists
 if { [exists_and_not_null elements] } {
-    set row_list [list]
+    set row_list {}
     foreach element $elements {
 	if { ![string equal $element "categories"] } {
 	    lappend row_list $element
@@ -78,16 +78,16 @@
 }
 
 # Create the elements for the list template
-set elements [list]
-set categories_filter [list]
+set elements {}
+set categories_filter {}
 
 # We are going to create the elements for each mapped category tree
 if { $categories_p } {
     set categories_trees [db_list_of_lists get_category_trees { }]
     
-    set mapped_objects [list]
-    set multirow_extend [list]
-    set tree_ids [list]
+    set mapped_objects {}
+    set multirow_extend {}
+    set tree_ids {}
 
     foreach tree $categories_trees {
 	set tree_name [lindex $tree 0]
Index: openacs-4/packages/invoices/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/index.tcl	2 Apr 2006 22:08:02 -0000	1.2
+++ openacs-4/packages/invoices/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -13,7 +13,7 @@
 set admin_p [permission::permission_p -object_id [ad_conn package_id] -privilege admin]
 
 set page_title "[_ invoices.invoices]"
-set context [list]
+set context {}
 
 set folder_id [parameter::get -parameter "JournalFolderID"]
 acs_object::get -object_id $folder_id -array folder
Index: openacs-4/packages/invoices/www/invoice-items-reports.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-items-reports.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/invoice-items-reports.tcl	15 Nov 2005 22:38:05 -0000	1.2
+++ openacs-4/packages/invoices/www/invoice-items-reports.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -19,4 +19,4 @@
 
 set base_url [ad_conn url]
 
-set elements [list]
\ No newline at end of file
+set elements {}
\ No newline at end of file
Index: openacs-4/packages/invoices/www/invoices-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoices-view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/invoices/www/invoices-view.tcl	31 Dec 2005 07:38:26 -0000	1.2
+++ openacs-4/packages/invoices/www/invoices-view.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -56,7 +56,7 @@
 }
 
 set return_url [export_vars -base invoice-list {organization_id}]
-set actions [list]
+set actions {}
 set bulk_actions [list "[_ invoices.iv_invoice_send]" "invoices-send" "[_ invoices.iv_invoice_send]" "[_ invoices.iv_invoice_save]" "invoices-save" "[_ invoices.iv_invoice_save]"]
 
 template::list::create \
Index: openacs-4/packages/invoices/www/mass-invoice.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/mass-invoice.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/invoices/www/mass-invoice.tcl	8 Nov 2006 14:42:07 -0000	1.10
+++ openacs-4/packages/invoices/www/mass-invoice.tcl	26 Apr 2018 08:56:38 -0000	1.11
@@ -20,10 +20,10 @@
 set date_format "YYYY-MM-DD"
 set has_submit 0
 set has_edit 0
-set offer_ids [list]
-set files [list]
-set failed_project_ids [list]
-set failed_invoice_ids [list]
+set offer_ids {}
+set files {}
+set failed_project_ids {}
+set failed_invoice_ids {}
 
 if {$__new_p} {
     set project_id [string trim $project_id "{}"]
@@ -54,7 +54,7 @@
     set project_title 0
     set total_amount 0.
     set total_credit 0.
-    set offer_ids [list]	
+    set offer_ids {}	
     
     #####  INSERT INVOICE #################
     
@@ -260,7 +260,7 @@
 	    if {![string eq $recipient_id $contact_id]} {
 		set document_types opening
 	    } else {
-		set document_types [list]
+		set document_types {}
 	    }
 	    
 	    if {$total_amount >= 0} {
Index: openacs-4/packages/invoices/www/offer-items-reports.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/offer-items-reports.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/invoices/www/offer-items-reports.tcl	15 Nov 2005 22:38:05 -0000	1.1
+++ openacs-4/packages/invoices/www/offer-items-reports.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -20,4 +20,4 @@
 
 set base_url [ad_conn url]
 
-set elements [list]
\ No newline at end of file
+set elements {}
\ No newline at end of file
Index: openacs-4/packages/invoices/www/projects-billable.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/projects-billable.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/invoices/www/projects-billable.tcl	15 Nov 2005 17:48:52 -0000	1.3
+++ openacs-4/packages/invoices/www/projects-billable.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -11,4 +11,4 @@
 set iv_package_id [ad_conn package_id]
 set iv_base_url [apm_package_url_from_id $iv_package_id]
 set page_title "[_ invoices.Billable_Projects]"
-set context [list]
+set context {}
Index: openacs-4/packages/invoices/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/admin/index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/invoices/www/admin/index.tcl	4 Jan 2006 08:06:55 -0000	1.4
+++ openacs-4/packages/invoices/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -11,7 +11,7 @@
 
 set user_id [auth::require_login]
 set page_title "[_ invoices.admin]"
-set context [list]
+set context {}
 set categories_url "categories-admin"
 set linking_url "linking"
 set package_id [ad_conn package_id]
Index: openacs-4/packages/jabber/www/doc/doc-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/jabber/www/doc/doc-master.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/jabber/www/doc/doc-master.tcl	20 Oct 2004 19:36:50 -0000	1.1
+++ openacs-4/packages/jabber/www/doc/doc-master.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -1,5 +1,5 @@
 # to build the proper context bar
 
 
-set context [list]
+set context {}
 append context "Documentation"
\ No newline at end of file
Index: openacs-4/packages/lars-blogger/www/drafts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/drafts.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/lars-blogger/www/drafts.tcl	8 Aug 2006 21:26:57 -0000	1.6
+++ openacs-4/packages/lars-blogger/www/drafts.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -10,7 +10,7 @@
 
 set context [list $page_title]
 
-set elements [list]
+set elements {}
 lappend elements edit {
     label {}
     sub_class narrow
Index: openacs-4/packages/lars-blogger/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/lars-blogger/www/index.tcl	28 Jun 2015 12:46:37 -0000	1.35
+++ openacs-4/packages/lars-blogger/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.36
@@ -22,7 +22,7 @@
 set index_page_p 1
 set show_archive_p [parameter::get -parameter "ShowArchiveP"]
 
-set context [list]
+set context {}
 set context_base_url $package_url
 
 if { $screen_name ne "" } {
Index: openacs-4/packages/lars-blogger/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/index.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/lars-blogger/www/admin/index.tcl	28 Jun 2015 12:46:37 -0000	1.14
+++ openacs-4/packages/lars-blogger/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.15
@@ -7,7 +7,7 @@
 
 set admin_p [permission::require_permission -object_id $package_id -privilege admin]
 
-set context [list]
+set context {}
 
 set title "[_ lars-blogger.Administration]"
 
Index: openacs-4/packages/latest/www/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest/www/menu.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/latest/www/menu.tcl	17 Nov 2006 19:04:05 -0000	1.2
+++ openacs-4/packages/latest/www/menu.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -39,9 +39,9 @@
 "]
 
 
-set packages_names [list]
-set objects [list]
-set packages  [list]
+set packages_names {}
+set objects {}
+set packages  {}
 
 foreach community $communities_list {
     set snode [site_node::get_node_id_from_object_id -object_id $community]
Index: openacs-4/packages/latest-portlet/www/latest-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/latest-portlet/www/latest-portlet.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/latest-portlet/www/latest-portlet.tcl	4 Apr 2018 08:11:26 -0000	1.2
+++ openacs-4/packages/latest-portlet/www/latest-portlet.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -28,9 +28,9 @@
           dotlrn_member_rels_approved.user_id = :user_id and archived_p='f'
 "]
 
-set packages_names [list]
-set objects [list]
-set packages  [list]
+set packages_names {}
+set objects {}
+set packages  {}
 
 foreach community $communities_list {
     set snode [site_node::get_node_id_from_object_id -object_id $community]
Index: openacs-4/packages/learning-content/www/glossary-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/learning-content/www/glossary-view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/learning-content/www/glossary-view.tcl	11 Mar 2009 16:10:42 -0000	1.2
+++ openacs-4/packages/learning-content/www/glossary-view.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -39,7 +39,7 @@
 append letter "%"
 set form_page_ids [db_list get_form_page_ids {}]
 
-set elements [list]
+set elements {}
 if { $admin_p } {
     lappend elements edit {
         label "[_ learning-content.edit]"
@@ -89,8 +89,8 @@
     }
 }
 
-set bulk_action_vars [list]
-set bulk_actions [list]
+set bulk_action_vars {}
+set bulk_actions {}
 if { $admin_p } {
     lappend bulk_action_vars return_url
     lappend bulk_actions "[_ learning-content.delete]" "delete-glossary-word"\
Index: openacs-4/packages/logger/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/logger/www/log.tcl	6 Feb 2007 11:45:54 -0000	1.43
+++ openacs-4/packages/logger/www/log.tcl	26 Apr 2018 08:56:38 -0000	1.44
@@ -109,7 +109,7 @@
     # project. When a new task is chosen, we want to change the
     # information shown about that task
 
-    set task_options [list]
+    set task_options {}
 
     if {[exists_and_not_null pm_task_id]} {
 
@@ -167,7 +167,7 @@
 
 
 # Build the log entry form elements
-set actions [list]
+set actions {}
 if { $edit_p } {
     lappend actions { Edit edit }
 }
@@ -216,7 +216,7 @@
 # but wants dates in list format
 
 set default_descriptions [split [parameter::get -parameter "DefaultDescriptionList"] ";"]
-set options [list]
+set options {}
 lappend options [list "" ""]
 foreach desc $default_descriptions {
     lappend options [list $desc $desc]
Index: openacs-4/packages/lors-central/www/course-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-admin.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/www/course-admin.tcl	31 May 2005 22:57:22 -0000	1.2
+++ openacs-4/packages/lors-central/www/course-admin.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -31,7 +31,7 @@
 # Permissions
 # dotlrn::require_user_admin_community -user_id $user_id -community_id $community_id
 
-set actions [list]
+set actions {}
 
 lappend actions  "[_ lorsm.Add_Course]" [export_vars -base "course-add"] "[_ lorsm.lt_Add_a_IMSSCORM_Compli]"
 lappend actions  "[_ lorsm.lt_Search_Learning_Objec]" [export_vars -base "/search"] "[_ lorsm.lt_Search_for_Learninng_]"
Index: openacs-4/packages/lors-central/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lors-central/www/index.tcl	4 Apr 2018 20:29:27 -0000	1.3
+++ openacs-4/packages/lors-central/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -55,7 +55,7 @@
 # Permissions
 # dotlrn::require_user_admin_community -user_id $user_id -community_id $community_id
 
-set actions [list]
+set actions {}
 
 if { [lors_central::check_inst -user_id $user_id] } {
     lappend actions  "[_ lorsm.Add_Course]" [export_vars -base "course-add"] "[_ lorsm.lt_Add_a_IMSSCORM_Compli]"
Index: openacs-4/packages/lors-central/www/lib/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/lib/md-record.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/lib/md-record.tcl	17 May 2005 16:21:21 -0000	1.1
+++ openacs-4/packages/lors-central/www/lib/md-record.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -1,4 +1,4 @@
-set actions [list]
+set actions {}
 
 lappend actions  "[_ lorsm._General]" [export_vars -base generalmd {ims_md_id}] "[_ lorsm.lt_View_General_Metadata]"
 lappend actions  "[_ lorsm.Lifecycle_MD]" [export_vars -base lifecyclemd {ims_md_id}] "[_ lorsm.lt_View_Lifecycle_Metada]"
Index: openacs-4/packages/lors-central/www/md/form-md-record/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/md/form-md-record/md-record.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors-central/www/md/form-md-record/md-record.tcl	17 May 2005 16:21:25 -0000	1.1
+++ openacs-4/packages/lors-central/www/md/form-md-record/md-record.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -1,4 +1,4 @@
-set actions [list]
+set actions {}
 
 lappend actions  "[_ lorsm.General_MD]" [export_vars -base ../generalmd {ims_md_id}] "[_ lorsm.lt_View_General_Metadata]"
 lappend actions  "[_ lorsm.Lifecycle_MD]" [export_vars -base ../lifecyclemd {ims_md_id}] "[_ lorsm.lt_View_Lifecycle_Metada]"
Index: openacs-4/packages/lorsm/lib/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/md-record.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/lib/md-record.tcl	12 Dec 2008 14:25:31 -0000	1.3
+++ openacs-4/packages/lorsm/lib/md-record.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -1,4 +1,4 @@
-set actions [list]
+set actions {}
 
 lappend actions "[_ lorsm._General]" \
     [export_vars -base generalmd {ims_md_id}] \
Index: openacs-4/packages/lorsm/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/lorsm/www/admin/index.tcl	28 Apr 2009 15:24:15 -0000	1.7
+++ openacs-4/packages/lorsm/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -18,7 +18,7 @@
 set user_id [ad_conn user_id]
 set community_id [lors::get_community_id]
 
-set actions [list]
+set actions {}
 
 lappend actions     "[_ lorsm.Add_Course]" \
                     [export_vars -base "course-add"] \
Index: openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl	12 Dec 2008 14:25:38 -0000	1.3
+++ openacs-4/packages/lorsm/www/admin/md/form-md-record/md-record.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -1,4 +1,4 @@
-set actions [list]
+set actions {}
 
 lappend actions "[_ lorsm.General_MD]" \
                 [export_vars -base ../generalmd {ims_md_id}] \
Index: openacs-4/packages/lorsm/www/delivery-scorm/servlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-scorm/servlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lorsm/www/delivery-scorm/servlet.tcl	18 Apr 2018 22:25:03 -0000	1.5
+++ openacs-4/packages/lorsm/www/delivery-scorm/servlet.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -270,7 +270,7 @@
 	ns_log $level "lorsm - serving LMSCOMMIT or LMSFINISH from applet"
 	ns_log $level "lorsm - received data $data from applet: processing. Reference cmi track is $currenttrackid, while lorsmstudenttrack is: $lorsmstudenttrack"
 	set preparselist [lrange [ split $data "," ] 1 end]
-	set lista [list]
+	set lista {}
 	set value ""
 	#here we build a list of request=value. we must do some pattern matching
 	foreach couple $preparselist {
Index: openacs-4/packages/mail-tracking/www/one-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/mail-tracking/www/one-message.tcl	29 Aug 2007 15:00:16 -0000	1.11
+++ openacs-4/packages/mail-tracking/www/one-message.tcl	26 Apr 2018 08:56:38 -0000	1.12
@@ -19,7 +19,7 @@
 # We need to figure out a way to detect which contacts package a party_id belongs to
 
 set page_title "[_ mail-tracking.One_message]"
-set context [list]
+set context {}
 set sender ""
 set receiver ""
 
@@ -45,7 +45,7 @@
     set sender "Unknown"
 }
 
-set reciever_list [list]
+set reciever_list {}
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='to' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -59,7 +59,7 @@
 set recipient [join $reciever_list ","]
 
 # Now the CC users
-set reciever_list [list]
+set reciever_list {}
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='cc' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -73,7 +73,7 @@
 set cc_string [join $reciever_list ","]
 
 # And the BCC ones
-set reciever_list [list]
+set reciever_list {}
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='bcc' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -88,7 +88,7 @@
 
 # We get the related files
 set tracking_url [apm_package_url_from_key "mail-tracking"]
-set download_files [list]
+set download_files {}
 set files [db_list files {}]
 foreach file_id $files {
     set title [content::item::get_title -item_id $file_id]
Index: openacs-4/packages/messages/www/update-numbers.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/messages/www/update-numbers.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/messages/www/update-numbers.tcl	31 Aug 2010 21:30:42 -0000	1.1
+++ openacs-4/packages/messages/www/update-numbers.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -14,7 +14,7 @@
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 set folders_info [db_list_of_lists count_new_messages {}]
-set numbers [list]
+set numbers {}
 foreach folder $folders_info {
     lappend numbers [lindex $folder 0]
     lappend numbers [lindex $folder 1]
Index: openacs-4/packages/monitoring/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/monitoring/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/monitoring/www/index.tcl	12 Mar 2004 13:57:24 -0000	1.3
+++ openacs-4/packages/monitoring/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -18,7 +18,7 @@
     package_id { return_url [ad_return_url] }
 }]
 
-set context [list]
+set context {}
 set title "Monitoring [ad_system_name]"
 
 ad_return_template
Index: openacs-4/packages/notes/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notes/www/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notes/www/index.tcl	10 Feb 2004 19:39:49 -0000	1.6
+++ openacs-4/packages/notes/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -14,7 +14,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set context [list]
+set context {}
 set create_p [ad_permission_p $package_id create]
 
 db_multirow notes notes {} {
Index: openacs-4/packages/oct-election/www/user-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oct-election/www/user-list.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/oct-election/www/user-list.tcl	24 Sep 2015 07:32:15 -0000	1.3
+++ openacs-4/packages/oct-election/www/user-list.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -53,7 +53,7 @@
 
 set before_sql "to_date(:vote_forum_cutoff, 'YYYY-MM-DD')"
 
-set usernames [list]
+set usernames {}
 
 
 db_multirow \
Index: openacs-4/packages/openfts-driver/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/openfts-driver/www/index.tcl	5 Sep 2002 11:21:37 -0000	1.2
+++ openacs-4/packages/openfts-driver/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -1,3 +1,3 @@
-set context [list]
+set context {}
 
 ad_return_template
\ No newline at end of file
Index: openacs-4/packages/openfts-driver/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/www/admin/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/openfts-driver/www/admin/index.tcl	5 Sep 2002 11:21:38 -0000	1.2
+++ openacs-4/packages/openfts-driver/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -1,4 +1,4 @@
-set context [list]
+set context {}
 
 set fts_conf_exists_p [catch {
     set ngroups [db_exec_plsql get_ngroups "select count(*) from fts_conf"]
Index: openacs-4/packages/page/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/page/www/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/page/www/index.tcl	24 Sep 2004 11:45:22 -0000	1.2
+++ openacs-4/packages/page/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -14,7 +14,7 @@
   where package_id = :package_id
 }
 
-set controls [list]
+set controls {}
 
 if {[db_0or1row content {
   select content
Index: openacs-4/packages/photo-album/www/photos-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/photos-edit-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/photo-album/www/photos-edit-2.tcl	7 Aug 2014 07:59:51 -0000	1.8
+++ openacs-4/packages/photo-album/www/photos-edit-2.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -26,8 +26,8 @@
 
 set context_list [pa_context_bar_list -final "Edit page $page" $album_id]
 
-set hides [list]
-set shows [list]
+set hides {}
+set shows {}
 foreach id [array names caption] { 
     # create a list of hide and show images.
     if {[info exists hide($id)]} { 
Index: openacs-4/packages/project-manager/lib/all-party-projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/all-party-projects.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/lib/all-party-projects.tcl	11 Nov 2005 20:20:24 -0000	1.1
+++ openacs-4/packages/project-manager/lib/all-party-projects.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -57,7 +57,7 @@
 
 
 # set up context bar
-set context [list]
+set context {}
 
 # the unique identifier for this package
 set user_id [ad_maybe_redirect_for_registration]
@@ -98,8 +98,8 @@
     }
 }
 
-set actions [list]
-set bulk_actions [list]
+set actions {}
+set bulk_actions {}
 
 template::list::create \
     -name "projects" \
Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	25 Apr 2018 19:47:47 -0000	1.33
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	26 Apr 2018 08:56:38 -0000	1.34
@@ -2604,8 +2604,8 @@
 	dtype::get_object -object_id $prev_rev_id -object_type pm_task -array old_task
 	db_1row get_new_title_and_desc "select title as old_title,description as old_description from cr_revisions where revision_id = $prev_rev_id"
 	
-	set changes [list]
-	set manual_change_list [list]
+	set changes {}
+	set manual_change_list {}
 	# Get changes for percent_complete
 	set old $old_task(percent_complete)
 	set new $task(percent_complete)
Index: openacs-4/packages/project-manager/templates/project-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/project-one.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/project-manager/templates/project-one.tcl	2 Aug 2007 11:35:20 -0000	1.8
+++ openacs-4/packages/project-manager/templates/project-one.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -48,7 +48,7 @@
 set folder_id [lindex [application_data_link::get_linked -from_object_id $project(item_id) -to_object_type "content_folder"] 0]
 
 set parent_project_id $project_item_id
-set context [list]
+set context {}
 while {$parent_project_id ne ""} {
     set project_name [pm::util::get_project_name -project_item_id $parent_project_id]
     lappend context [list "one?project_item_id=$parent_project_id" "$project_name"]
Index: openacs-4/packages/project-manager/templates/task-one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/templates/task-one.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/project-manager/templates/task-one.tcl	25 Jun 2007 07:26:11 -0000	1.5
+++ openacs-4/packages/project-manager/templates/task-one.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -87,7 +87,7 @@
 
 # Set the context bar at least two levels up :-)
 set parent_project_id $task_info(project_item_id)
-set context [list]
+set context {}
 while {$parent_project_id ne ""} {
     set project_name [pm::util::get_project_name -project_item_id $parent_project_id]
     lappend context [list "one?project_item_id=$parent_project_id" "$project_name"]
Index: openacs-4/packages/project-manager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/index.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/project-manager/www/index.tcl	20 Feb 2007 07:53:38 -0000	1.19
+++ openacs-4/packages/project-manager/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.20
@@ -49,7 +49,7 @@
     ad_script_abort
 }
 
-set context [list]
+set context {}
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -party_id [ad_conn untrusted_user_id] -privilege admin]
 
@@ -62,7 +62,7 @@
 set variable_id [logger::variable::get_default_variable_id]
 
 # Get the list of logger projects
-set logger_projects [list]
+set logger_projects {}
 db_foreach pm_projects {select project_id as project_item_id from pm_project_assignment pa,acs_objects o where pa.project_id = o.object_id and o.package_id = :package_id and party_id = :user_id} {
     lappend logger_projects [lindex [application_data_link::get_linked -from_object_id $project_item_id -to_object_type logger_project] 0]
     
Index: openacs-4/packages/project-manager/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/log.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/www/log.tcl	26 May 2005 09:34:29 -0000	1.3
+++ openacs-4/packages/project-manager/www/log.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -8,4 +8,4 @@
 
 
 set title "[_ project-manager.lt_Set_up_logger_integra]"
-set context [list]
+set context {}
Index: openacs-4/packages/project-manager/www/move-task.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/move-task.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/move-task.tcl	12 Aug 2005 21:16:21 -0000	1.1
+++ openacs-4/packages/project-manager/www/move-task.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -23,7 +23,7 @@
 }
 
 # We are going to get all projects of the same instance that we are located
-set options [list]
+set options {}
 db_foreach get_projects { } {
     set project [pm::project::get_project_item_id -project_id $object_id]
     lappend options [list "$object_title" $project]
@@ -54,7 +54,7 @@
 # To get projects of other instances in the system using to forms, one for search 
 # and the other one for select
 if { $search_p } {
-    set search_options [list]
+    set search_options {}
     db_foreach get_search_projects { } {
 	set project [pm::project::get_project_item_id -project_id $object_id]
 	lappend search_options [list "$object_title" $project]
Index: openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl	25 Jun 2007 07:26:11 -0000	1.8
+++ openacs-4/packages/project-manager/www/process-dependency-add-edit.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -154,13 +154,13 @@
 
 # get dependency types
 
-#set options [list] #db_foreach get_dependency_types {} -column_array
+#set options {} #db_foreach get_dependency_types {} -column_array
 #sdependencies {# lappend options "{\"$dependencies(description)\"
 #s$dependencies(short_name)}" #}
 
 # set up list of tasks that this task can be depend on
 
-set dependency_keys [list]
+set dependency_keys {}
 
 db_foreach get_dependency_tasks {} -column_array dependency_tasks {
     
@@ -173,7 +173,7 @@
 db_foreach dependency_query {} -column_array tasks {
     # set up the tasks that can be viewed. Takes out the current task
 
-    set dependency_options_full [list]
+    set dependency_options_full {}
     foreach key $dependency_keys {
         if {![string equal $key $tasks(task_title)]} {
             lappend dependency_options_full [list $key $dependency_options($key)]
Index: openacs-4/packages/project-manager/www/project-assign-task-assignees.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-assign-task-assignees.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/www/project-assign-task-assignees.tcl	26 May 2005 09:34:29 -0000	1.3
+++ openacs-4/packages/project-manager/www/project-assign-task-assignees.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -40,7 +40,7 @@
                     and ppm.party_id = :user_id)
 }]
 
-set parties [list]
+set parties {}
 
 foreach pair $assignments_lol {
 
Index: openacs-4/packages/project-manager/www/project-revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/project-revisions.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/project-manager/www/project-revisions.tcl	26 May 2005 09:34:29 -0000	1.3
+++ openacs-4/packages/project-manager/www/project-revisions.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -53,7 +53,7 @@
     } 
 
 
-set descriptions [list]
+set descriptions {}
 
 db_multirow -extend { item_url description_rich old_revision_id } revisions project_revisions_query {
 } {
Index: openacs-4/packages/project-manager/www/projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/projects.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager/www/projects.tcl	19 Feb 2007 15:54:15 -0000	1.1
+++ openacs-4/packages/project-manager/www/projects.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -56,7 +56,7 @@
 set hidden_vars [export_vars -form $exporting_vars]
 
 # set up context bar
-set context [list]
+set context {}
 
 # the unique identifier for this package
 set user_id    [ad_maybe_redirect_for_registration]
Index: openacs-4/packages/project-manager/www/send-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/send-mail.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/project-manager/www/send-mail.tcl	6 Jun 2006 16:10:55 -0000	1.6
+++ openacs-4/packages/project-manager/www/send-mail.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -32,7 +32,7 @@
 # First we get all users assigned to this project
 set users_list [pm::project::assignee_role_list -project_item_id $project_item_id]
 
-set options [list]
+set options {}
 
 
 if {[string eq "" $party_id]} {
Index: openacs-4/packages/project-manager/www/task-revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/task-revisions.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/project-manager/www/task-revisions.tcl	13 Sep 2005 15:25:31 -0000	1.4
+++ openacs-4/packages/project-manager/www/task-revisions.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -73,7 +73,7 @@
         narrow
     } 
 
-set descriptions [list]
+set descriptions {}
 
 db_multirow -extend { item_url description_rich old_revision_id } revisions task_revisions_query {
 } {
Index: openacs-4/packages/project-manager/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/admin/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/project-manager/www/admin/index.tcl	6 Jun 2005 08:11:00 -0000	1.6
+++ openacs-4/packages/project-manager/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.7
@@ -34,7 +34,7 @@
 # --------------------------------------------------------------- #
 
 # set up context bar
-set context [list]
+set context {}
 set title "Project Manager Administration"
 
 # the unique identifier for this package
Index: openacs-4/packages/project-manager-portlet/lib/projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/lib/projects.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/project-manager-portlet/lib/projects.tcl	25 Apr 2018 19:47:48 -0000	1.11
+++ openacs-4/packages/project-manager-portlet/lib/projects.tcl	26 Apr 2018 08:56:38 -0000	1.12
@@ -62,7 +62,7 @@
 
 
 # set up context bar
-set context [list]
+set context {}
 
 # the unique identifier for this package
 set user_id    [ad_maybe_redirect_for_registration]
Index: openacs-4/packages/project-manager-portlet/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager-portlet/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/project-manager-portlet/www/index.tcl	10 Jun 2005 18:27:35 -0000	1.1
+++ openacs-4/packages/project-manager-portlet/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -43,7 +43,7 @@
 set hidden_vars [export_vars -form $exporting_vars]
 
 # set up context bar
-set context [list]
+set context {}
 
 # the unique identifier for this package
 #set package_id [ad_conn package_id]
Index: openacs-4/packages/quota-portlet/www/quota-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/quota-portlet/www/quota-portlet.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/quota-portlet/www/quota-portlet.tcl	21 Jun 2006 17:08:35 -0000	1.1
+++ openacs-4/packages/quota-portlet/www/quota-portlet.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -28,13 +28,13 @@
 
 }
 
-set context [list]
+set context {}
 array set config $cf
 set list_of_package_ids $config(package_id)
 set user_id [ad_conn user_id]
 set sep_package_ids [join $list_of_package_ids ", "]
 if {[llength $list_of_package_ids] == 1} { set single_p "t"} else {set single_p "f"}
-set context [list]
+set context {}
 set shaded_p $config(shaded_p)
 set quota_url "[ad_conn package_url]/quota/quota"
 set community_id [dotlrn_community::get_community_id]
Index: openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl	18 Dec 2007 21:20:10 -0000	1.5
+++ openacs-4/packages/random-photo-portlet/www/random-photo-portlet.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -29,7 +29,7 @@
 }
 
 # get user's communities
-set groups [list]
+set groups {}
 set community_list [dotlrn_community::get_all_communities_by_user $random_user_id]
 foreach item $community_list {
 	lappend groups [ns_set get $item "pretty_name"]
Index: openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	25 Apr 2018 19:47:48 -0000	1.8
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -166,7 +166,7 @@
 		    set user_value $choice_id
 		}
 		
-		set choices [list]
+		set choices {}
 		db_foreach sursimp_question_choices_2 "select choice_id, label
 from survsimp_question_choices
 where question_id = :question_id
@@ -253,7 +253,7 @@
   and sq.active_p = 't'
 order by sort_key"
     } else {
-	set bind_var_list [list]
+	set bind_var_list {}
 	set i 0
 	foreach cat_id $category_id_list {
 	    incr i
Index: openacs-4/packages/simple-survey/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/one.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/simple-survey/www/one.tcl	1 Mar 2005 00:01:42 -0000	1.7
+++ openacs-4/packages/simple-survey/www/one.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -78,7 +78,7 @@
 # build a list containing the HTML (generated with survsimp_question_display) for each question
 set rownum 0
 
-set questions [list]
+set questions {}
 
 db_foreach question_ids_select {
     select question_id
Index: openacs-4/packages/simulation/lib/sim-template-tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-template-tasks.tcl,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/simulation/lib/sim-template-tasks.tcl	25 Apr 2018 19:47:48 -0000	1.47
+++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl	26 Apr 2018 08:56:38 -0000	1.48
@@ -43,7 +43,7 @@
     }
 }
 
-set elements [list]
+set elements {}
 lappend elements edit {
     hide_p {[ad_decode $display_mode edit 0 1]}
     sub_class narrow
@@ -167,7 +167,7 @@
 # tasks db_multirow
 #-------------------------------------------------------------
 
-set extend [list]
+set extend {}
 lappend extend edit_url view_url delete_url assigned_role_edit_url up_url down_url add_child_action_url copy_url
 
 foreach state_id $states {
@@ -192,7 +192,7 @@
     set enabled_in_state($action_id,$state_id) $assigned_p
 }
 
-set actions [list]
+set actions {}
 set counter 0
 
 db_multirow -extend $extend tasks select_tasks "
Index: openacs-4/packages/simulation/www/siminst/map-tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-tasks.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/simulation/www/siminst/map-tasks.tcl	30 Nov 2004 21:09:17 -0000	1.16
+++ openacs-4/packages/simulation/www/siminst/map-tasks.tcl	26 Apr 2018 08:56:38 -0000	1.17
@@ -21,7 +21,7 @@
 set prop_count [llength $prop_options]
 set missing_props_p 0
 
-set actions [list]
+set actions {}
 
 db_foreach tasks {
     select a.action_id,
Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	27 Jan 2004 12:48:39 -0000	1.24
+++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl	26 Apr 2018 08:56:38 -0000	1.25
@@ -15,7 +15,7 @@
 set page_title "Set user casting rules"
 set context [list [list "." "SimInst"] $page_title]
 
-set form [list]
+set form {}
 
 lappend form {casting_type:text(radio)
     {label "Casting type"}
@@ -78,7 +78,7 @@
 
         simulation::template::role_party_mappings -workflow_id $workflow_id -array roles
 
-        set all_group_ids [list]
+        set all_group_ids {}
         foreach group_item $eligible_groups {
             lappend all_group_ids [lindex $group_item 1]
         }
Index: openacs-4/packages/simulation/www/siminst/simulation-participants.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-participants.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/simulation/www/siminst/simulation-participants.tcl	20 Apr 2004 21:12:26 -0000	1.14
+++ openacs-4/packages/simulation/www/siminst/simulation-participants.tcl	26 Apr 2018 08:56:38 -0000	1.15
@@ -35,7 +35,7 @@
     {workflow_id:integer(hidden) {value $workflow_id}}
 }
 
-set groups [list]
+set groups {}
 
 db_multirow -extend { group_radio } participants select_participants {
     select g.group_name,
Index: openacs-4/packages/soap-gateway/tcl/soap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/soap-gateway/tcl/soap-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/soap-gateway/tcl/soap-procs.tcl	25 Apr 2018 19:47:48 -0000	1.2
+++ openacs-4/packages/soap-gateway/tcl/soap-procs.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -232,7 +232,7 @@
     # test for request
     if $unpublished {
 	# decl unpublished list
-	set unpub [list]
+	set unpub {}
 	
 	# create lower case services
 	set lowercase_services [string tolower $services]
Index: openacs-4/packages/spam/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/spam/www/index.tcl	1 Mar 2005 00:01:44 -0000	1.3
+++ openacs-4/packages/spam/www/index.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -61,4 +61,4 @@
     order by sm.send_date
 }
 
-set context [list]
+set context {}
Index: openacs-4/packages/spam/www/spam-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/spam-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/spam/www/spam-view.tcl	5 Sep 2002 22:14:36 -0000	1.3
+++ openacs-4/packages/spam/www/spam-view.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -50,6 +50,6 @@
     }
 }     
 
-set context [list]
+set context {}
 
 ad_return_template
Index: openacs-4/packages/spam/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/admin/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/spam/www/admin/index.tcl	1 Mar 2005 00:01:44 -0000	1.3
+++ openacs-4/packages/spam/www/admin/index.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -58,6 +58,6 @@
     order by sm.send_date
 }
 
-set context [list]
+set context {}
 
 ad_return_template
Index: openacs-4/packages/spam/www/admin/spam-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/spam/www/admin/spam-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/spam/www/admin/spam-view.tcl	5 Sep 2002 22:14:37 -0000	1.3
+++ openacs-4/packages/spam/www/admin/spam-view.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -48,6 +48,6 @@
     }
 }     
 
-set context [list]
+set context {}
 
 ad_return_template
Index: openacs-4/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/survey/tcl/survey-procs.tcl	25 Apr 2018 19:47:48 -0000	1.13
+++ openacs-4/packages/survey/tcl/survey-procs.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -209,7 +209,7 @@
 		    set user_value $choice_id
 		}
 		
-		set choices [list]
+		set choices {}
 		db_foreach question_choices_2 "" {
 		    if { $user_value == $choice_id } {
 			lappend choices "<input type=radio name=$element_name value=$choice_id checked> $label"
Index: openacs-4/packages/survey/www/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/respond.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/survey/www/respond.tcl	30 Sep 2017 18:12:52 -0000	1.12
+++ openacs-4/packages/survey/www/respond.tcl	26 Apr 2018 08:56:38 -0000	1.13
@@ -71,7 +71,7 @@
 set rownum 0
 # for double-click protection
 set new_response_id [db_nextval acs_object_id_seq]    
-set questions [list]
+set questions {}
 
 db_foreach survey_sections {} {
 
Index: openacs-4/packages/survey/www/admin/respond.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/respond.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/survey/www/admin/respond.tcl	21 Jan 2018 00:39:44 -0000	1.7
+++ openacs-4/packages/survey/www/admin/respond.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -72,7 +72,7 @@
 set rownum 0
 # for double-click protection
 set new_response_id [db_nextval acs_object_id_seq]    
-set questions [list]
+set questions {}
 
 db_foreach survey_sections {} {
 
Index: openacs-4/packages/survey/www/admin/survey-preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/survey-preview.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/survey/www/admin/survey-preview.tcl	30 Sep 2017 18:12:53 -0000	1.9
+++ openacs-4/packages/survey/www/admin/survey-preview.tcl	26 Apr 2018 08:56:38 -0000	1.10
@@ -52,7 +52,7 @@
 # build a list containing the HTML (generated with survey_question_display) for each question
 set rownum 0
     
-set questions [list]
+set questions {}
 
 db_foreach survey_sections {} {
 
Index: openacs-4/packages/survey-reports/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey-reports/www/view.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/survey-reports/www/view.tcl	14 Nov 2005 04:31:01 -0000	1.2
+++ openacs-4/packages/survey-reports/www/view.tcl	26 Apr 2018 08:56:38 -0000	1.3
@@ -43,9 +43,9 @@
 set screen_name $user(screen_name)
 set current_date [ns_fmttime [ns_time] "%B %e, %Y"]
 
-set var_names [list]
+set var_names {}
 
-set used_list [list]
+set used_list {}
 set orig_survey_id $survey_id
 
 db_multirow surveys_used surveys_used {
@@ -411,7 +411,7 @@
 set properties(manage_url) "[ad_conn package_url]manage/${item(name)}"
 set properties(admin_p) [permission::permission_p -object_id $package_id -privilege admin]
 
-set vars [list]
+set vars {}
 foreach var $var_names {
     lappend vars $var [set $var]
 }
Index: openacs-4/packages/tasks/lib/contacts-bulk-add-process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/lib/contacts-bulk-add-process.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/tasks/lib/contacts-bulk-add-process.tcl	13 Mar 2006 07:36:40 -0000	1.1
+++ openacs-4/packages/tasks/lib/contacts-bulk-add-process.tcl	26 Apr 2018 08:56:38 -0000	1.2
@@ -23,7 +23,7 @@
 set context [list $title]
 set package_id [ad_conn package_id]
 
-set assigneees [list]
+set assigneees {}
 foreach party $party_id {
     contact::require_visiblity -party_id $party
     if { $process_id ne "" } {
Index: openacs-4/packages/tasks/lib/task-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/lib/task-form.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/tasks/lib/task-form.tcl	23 Nov 2006 11:51:33 -0000	1.4
+++ openacs-4/packages/tasks/lib/task-form.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -24,7 +24,7 @@
 }
 
 set task_form_vars [list task_id names assignee_id task_prescribed task due_date status priority description comment creator]
-set export_vars [list]
+set export_vars {}
 foreach {key value} $export_vars_list {
     if { [lsearch $task_form_vars $key] < 0 } {
 	set $key $value
@@ -97,7 +97,7 @@
 append assign_parties_options " [db_list_of_lists get_all_users { }]"
 
 
-set names [list]
+set names {}
 foreach object $object_id {
     lappend names "<a href=\"[tasks::object_url -object_id $object]\">[db_string get_acs_object_name { select acs_object__name(:object) }]</a>"
 }
Index: openacs-4/packages/theme-ges/tcl/theme-ges-procs.tcl.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/theme-ges/tcl/theme-ges-procs.tcl.txt,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/theme-ges/tcl/theme-ges-procs.tcl.txt	5 Apr 2018 14:44:09 -0000	1.2
+++ openacs-4/packages/theme-ges/tcl/theme-ges-procs.tcl.txt	26 Apr 2018 08:56:38 -0000	1.3
@@ -118,9 +118,9 @@
 	    set user_name {}
 	}
 	
-	set navbar [list]
+	set navbar {}
 
-	set tabs_list [list]
+	set tabs_list {}
 
 	# Verifying if the user is external then this package does not add the
 	# following tabs, cursos actuales, comunidad y panel de control
@@ -249,7 +249,7 @@
 	    regsub -all {[^0-9]} $page_num {} page_num
 	}
 	
-	set subnavbar [list]
+	set subnavbar {}
 	
 	db_foreach list_page_nums_select {} {
 	    if {[string equal $page_num $sort_key]} {
Index: openacs-4/packages/webmail-system/www/account.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/account.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail-system/www/account.tcl	6 Jun 2006 14:35:10 -0000	1.1
+++ openacs-4/packages/webmail-system/www/account.tcl	26 Apr 2018 08:56:39 -0000	1.2
@@ -25,7 +25,7 @@
 set id [ad_get_client_property webmail-system conn_id]
 set user_id [ad_conn user_id]
 
-set opts [list]
+set opts {}
 
 db_multirow -extend { server_line } servers get_servers {} {
     set server_line "$neat_name ($host_addr)"
Index: openacs-4/packages/webmail-system/www/compose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/compose.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/webmail-system/www/compose.tcl	25 Apr 2018 19:47:48 -0000	1.3
+++ openacs-4/packages/webmail-system/www/compose.tcl	26 Apr 2018 08:56:39 -0000	1.4
@@ -44,7 +44,7 @@
 
 # ------------------------- CREATE FORM ------------------------- #
 
-#set opts [list]
+#set opts {}
 
 #db_multirow emails get_emails {} {
 #    lappend opts [list $email]
Index: openacs-4/packages/webmail-system/www/folder-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/folder-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail-system/www/folder-delete.tcl	17 Apr 2018 14:47:03 -0000	1.2
+++ openacs-4/packages/webmail-system/www/folder-delete.tcl	26 Apr 2018 08:56:39 -0000	1.3
@@ -46,7 +46,7 @@
 # -------------------------- PROCESSING ------------------------- #
 
 set folders [ns_imap list $id $mailbox *]
-set fnames [list]
+set fnames {}
 
 foreach {odd even} $folders {
 	lappend fnames $odd
Index: openacs-4/packages/webmail-system/www/folders.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/folders.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail-system/www/folders.tcl	6 Jun 2006 14:35:10 -0000	1.1
+++ openacs-4/packages/webmail-system/www/folders.tcl	26 Apr 2018 08:56:39 -0000	1.2
@@ -64,7 +64,7 @@
 # -------------------------- PROCESSING ------------------------- #
 
 set folders [ns_imap list $id $mailbox *]
-set fnames [list]
+set fnames {}
 set number 0
 foreach {odd even} $folders {
     incr number
Index: openacs-4/packages/webmail-system/www/mail-reply.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/mail-reply.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/webmail-system/www/mail-reply.tcl	30 Sep 2017 18:12:53 -0000	1.2
+++ openacs-4/packages/webmail-system/www/mail-reply.tcl	26 Apr 2018 08:56:39 -0000	1.3
@@ -74,7 +74,7 @@
 
 set use_wysiwyg_p [parameter::get -parameter "UseWysiwygP" -default "f"]
 
-set opts [list]
+set opts {}
 
 db_multirow emails get_emails {} {
   lappend opts [list "$username@$host_addr"]
Index: openacs-4/packages/webmail-system/www/preferences.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/preferences.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail-system/www/preferences.tcl	6 Jun 2006 14:35:11 -0000	1.1
+++ openacs-4/packages/webmail-system/www/preferences.tcl	26 Apr 2018 08:56:39 -0000	1.2
@@ -28,13 +28,13 @@
 
 # ------------------------- CREATE FORM ------------------------- #
 
-set options [list]
+set options {}
 lappend options [list "[_ webmail-system.Full_HTML]" 0]
 lappend options [list "[_ webmail-system.HTML_without_CSS]" 1]
 lappend options [list "[_ webmail-system.Enhanced_Text]" 2]
 lappend options [list "[_ webmail-system.Plain_Text]" 3]
 
-set opts [list]
+set opts {}
 lappend opts [list "[_ webmail-system.Text]" 0]
 lappend opts [list "[_ webmail-system.Icons]" 1]
 
Index: openacs-4/packages/webmail-system/www/admin/account.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/admin/account.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail-system/www/admin/account.tcl	6 Jun 2006 14:35:11 -0000	1.1
+++ openacs-4/packages/webmail-system/www/admin/account.tcl	26 Apr 2018 08:56:39 -0000	1.2
@@ -24,14 +24,14 @@
 set address "Administrator"
 set id [ad_get_client_property webmail-system conn_id]
 
-set opts [list]
+set opts {}
 
 db_multirow -extend { server_line } servers get_servers {} {
     set server_line "$neat_name ($host_addr)"
     lappend opts [list $server_line $server_id ]
 }
 
-set uopts [list]
+set uopts {}
 
 db_multirow -extend { name } users get_users {} {
     acs_user::get -user_id $user_id -array user
Index: openacs-4/packages/webmail-system/www/admin/server.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/www/admin/server.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/webmail-system/www/admin/server.tcl	6 Jun 2006 14:35:11 -0000	1.1
+++ openacs-4/packages/webmail-system/www/admin/server.tcl	26 Apr 2018 08:56:39 -0000	1.2
@@ -25,12 +25,12 @@
 
 set user_id [ad_conn user_id]
 
-set opts [list]
+set opts {}
 db_multirow auth_types get_auth_types {} {
     lappend opts [list $type $type_id]
 }
 
-set options [list]
+set options {}
 db_multirow server_types get_serv_types {} {
     lappend options [list $type $type_id]
 }
Index: openacs-4/packages/wp-slim/www/add-edit-slide.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/add-edit-slide.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/add-edit-slide.tcl	27 Jun 2015 20:34:41 -0000	1.4
+++ openacs-4/packages/wp-slim/www/add-edit-slide.tcl	26 Apr 2018 08:56:39 -0000	1.5
@@ -116,7 +116,7 @@
 # Creates the bullets list dynamically. The list of list elements has the bullets #
 ###################################################################################
 
-set elements [list]
+set elements {}
 for {set j 1} {$j <= $array_max} {incr j} {
     set element [list bullet.$j:text(text),optional \
 			    {html { size 60 }} \
@@ -202,7 +202,7 @@
 ad_form -extend -name f -new_data {
 
     # makes a bullet list to send to the procedure
-    set bullet_list [list]
+    set bullet_list {}
     for {set i 1} {$i <= $array_max} {incr i} {
 	set bullet_value [set bullet.$i]
 	if { $bullet_value ne "" } {
@@ -224,7 +224,7 @@
 } -edit_data {
   
     # makes a bullet list to send to the procedure
-    set bullet_items [list]
+    set bullet_items {}
     for {set i 1} {$i <= $array_max} {incr i} {
 	set bullet_value [set bullet.$i]
 	if { $bullet_value ne "" } {
Index: openacs-4/packages/wp-slim/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/wp-slim/www/index.tcl	27 Jun 2015 20:34:41 -0000	1.10
+++ openacs-4/packages/wp-slim/www/index.tcl	26 Apr 2018 08:56:39 -0000	1.11
@@ -16,7 +16,7 @@
 
 set package_id [ad_conn package_id]
 
-set context [list]
+set context {}
 
 set user_id [ad_conn user_id]
 
Index: openacs-4/packages/wp-slim/www/style-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/style-edit.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/wp-slim/www/style-edit.tcl	25 Apr 2018 19:47:48 -0000	1.7
+++ openacs-4/packages/wp-slim/www/style-edit.tcl	26 Apr 2018 08:56:39 -0000	1.8
@@ -73,7 +73,7 @@
 [ad_generic_optionlist [list "[_ wp-slim.Yes]" "[_ wp-slim.No]"] [list t f] $public_p]</select>\n"
 
 
-set values [list]
+set values {}
 
 set context "[list [list "style-list.tcl" "Your Styles"] $header "[_ wp-slim.role_Style]"]"
 
Index: openacs-4/packages/xotcl-core/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/doc-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	13 Dec 2017 20:42:31 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	26 Apr 2018 08:56:39 -0000	1.4
@@ -13,7 +13,7 @@
     }
 
     proc dotquotel {l} {
-	set result [list]
+	set result {}
 	foreach e $l { lappend result \"$e\" }
 	return $result
     }
@@ -57,7 +57,7 @@
 	}
 	append definition "|"
 	::xo::api scope_from_object_reference scope e
-	set methods [list]
+	set methods {}
         dot_append_method -documented_methods $documented_methods $e methods proc
         dot_append_method -documented_methods $documented_methods $e methods instproc
 	dot_append_method -documented_methods $documented_methods $e methods instforward
@@ -103,7 +103,7 @@
 	set superclasses ""
 	foreach e $classes {
             if {![::nsf::is object $e]} continue
-            set reduced_sc [list]
+            set reduced_sc {}
             foreach sc [::xo::getObjectProperty $e superclass] {
                 if {$omit_base_classes && [::nsf::is baseclass $sc]} continue
                 lappend reduced_sc $sc
Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	25 Apr 2018 19:47:48 -0000	1.54
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	26 Apr 2018 08:56:39 -0000	1.55
@@ -1191,7 +1191,7 @@
     return [list ${:ip24} ${:auth24}]
   }
   Users proc users_per_day {} {
-    set ip [list]; set auth {}
+    set ip {}; set auth {}
     foreach i [array names :timestamp] {
       if {[::xo::is_ip $i]} {
         set var ip
Index: openacs-4/packages/xotcl-request-monitor/www/last100.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last100.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-request-monitor/www/last100.tcl	7 Aug 2017 23:48:30 -0000	1.8
+++ openacs-4/packages/xotcl-request-monitor/www/last100.tcl	26 Apr 2018 08:56:39 -0000	1.9
@@ -15,7 +15,7 @@
 set context [list $title]
 set admin_p [acs_user::site_wide_admin_p]
 
-set stat [list]
+set stat {}
 foreach {key value} [throttle last100] {lappend stat $value}
 
 Class create CustomField -volatile \
Index: openacs-4/packages/xotcl-request-monitor/www/last101.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last101.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-request-monitor/www/last101.tcl	10 Apr 2018 06:34:36 -0000	1.5
+++ openacs-4/packages/xotcl-request-monitor/www/last101.tcl	26 Apr 2018 08:56:39 -0000	1.6
@@ -13,7 +13,7 @@
 
 set title "Last 100 Requests"
 set context [list "Last 100 Requests"]
-set stat [list]
+set stat {}
 foreach {key value} [throttle last100] {lappend stat $value}
 
 Class create CustomField -volatile \
Index: openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	7 Aug 2017 23:48:30 -0000	1.4
+++ openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	26 Apr 2018 08:56:39 -0000	1.5
@@ -14,7 +14,7 @@
 
 set title "Users in Community $community_name"
 set context [list $title]
-set stat [list]
+set stat {}
 
 TableWidget create t1 \
     -columns {
Index: openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	7 Aug 2017 23:48:30 -0000	1.5
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	26 Apr 2018 08:56:39 -0000	1.6
@@ -37,7 +37,7 @@
     -no_data "no registered online today" 
 
 
-set users [list]
+set users {}
 lassign [throttle users users_per_day] ip auth
 if {!$all} {set elements [concat $ip $auth]} {set elements $auth}
 set summary "We noticed in [expr {[llength $ip]+[llength $auth]}] users in total, containing [llength $auth] authenticated users"
Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	7 Aug 2017 23:48:30 -0000	1.12
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl	26 Apr 2018 08:56:39 -0000	1.13
@@ -60,7 +60,7 @@
   #return "$peer"
 }
 
-set users [list]
+set users {}
 foreach element [throttle users active -full] {
   lassign $element user_id pa timestamp hits smooth switches
   if {[string is integer $user_id]} {
Index: openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl-old
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl-old,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl-old	14 Dec 2005 16:09:02 -0000	1.1
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online.tcl-old	26 Apr 2018 08:56:39 -0000	1.2
@@ -81,7 +81,7 @@
     -no_data "no registered users online" \
     -elements $template_elements 
 
-set users [list]
+set users {}
 foreach element [throttle users active -full] {
   foreach {user_id pa timestamp hits smooth switches} $element break
   if {[string first . $user_id] > 0} {
Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/xowf/tcl/xowf-procs.tcl	25 Apr 2018 19:47:48 -0000	1.19
+++ openacs-4/packages/xowf/tcl/xowf-procs.tcl	26 Apr 2018 08:56:39 -0000	1.20
@@ -636,7 +636,7 @@
         View method: $view_method, Form loader: $form_loader,\
         Context class: [:info class]"
 
-    #set conds [list]
+    #set conds {}
     #foreach c [:defined Condition] {
     #  lappend conds "[$c name] [$c]"
     #}
Index: openacs-4/packages/xowiki/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/index.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xowiki/www/admin/index.tcl	7 Aug 2017 23:48:31 -0000	1.29
+++ openacs-4/packages/xowiki/www/admin/index.tcl	26 Apr 2018 08:56:39 -0000	1.30
@@ -10,7 +10,7 @@
   {-object_type ::xowiki::Page}
 }
 
-set context [list]
+set context {}
 set pretty_plural [$object_type set pretty_plural]
 set title [_ xowiki.admin_all_title]