Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -N -r1.73 -r1.74
--- openacs-4/packages/contacts/lib/contacts.tcl	25 Jun 2007 16:25:39 -0000	1.73
+++ openacs-4/packages/contacts/lib/contacts.tcl	25 Apr 2018 19:47:46 -0000	1.74
@@ -110,7 +110,7 @@
 	# We clear the list when no value is submited, otherwise
 	# we acumulate the extend values.
 	if { [empty_string_p $extend_option] } {
-	    set extend_values [list]
+	    set extend_values {}
 	} else {
 	    lappend extend_values [list $extend_option] 
 	}
@@ -546,7 +546,7 @@
     }
 
 
-    set party_ids [list]
+    set party_ids {}
     db_multirow contacts report_contacts_select {} {
 	lappend party_ids $party_id
     }
@@ -597,7 +597,7 @@
     eval $command
 
     
-    set keys [list]
+    set keys {}
     template::multirow foreach contacts {
 	set key [list]
 	foreach {element details} $report_elements {