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.2 -r1.3
--- openacs-4/packages/contacts/www/admin/full-organizations.tcl	26 Apr 2018 08:56:38 -0000	1.2
+++ openacs-4/packages/contacts/www/admin/full-organizations.tcl	9 May 2018 15:33:30 -0000	1.3
@@ -9,7 +9,7 @@
 } {
 }
 
-set party_ids {}
+set party_ids [list]
 db_multirow organizations get_organizations "
     select party_id,
            name,
@@ -49,7 +49,7 @@
 
 
 set output {"Organization ID","Name","Email","URL"}
-set extended_columns {}
+set extended_columns [list]
 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 {}
+set command [list]
 foreach column [template::multirow columns organizations] {
     lappend command "\[template::list::csv_quote \$${column}\]"
 }