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}\]"
 }