Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.63 -r1.64
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	28 Mar 2018 23:36:17 -0000	1.63
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	25 Apr 2018 19:47:47 -0000	1.64
@@ -275,7 +275,7 @@
 } {
 
     set object_type [contact::type -party_id $party_id]
-    set element_list [list]
+    set element_list {}
     if { [lsearch [list person user] $object_type] >= 0 } {
 	lappend element_list first_names last_name email
     } elseif {$object_type == "organization" } {
@@ -731,7 +731,7 @@
     }
 
     set object_type $type
-    set results [list]
+    set results {}
     if { $object_type eq "party" && [lsearch [list email url] $key] >= 0 } {
 	db_foreach get_party_info " select $key as value, party_id from parties where party_id in ( $select_query ) " {
 	    if { $format eq "html" && $value ne "" } {
@@ -906,7 +906,7 @@
 	if { ![array exists roles_list] } {
 	    return [list]
 	} else {
-	    set results [list]
+	    set results {}
 	    foreach {party_id related_parties} [array get roles_list] {
 		lappend results $party_id [join [lsort -dictionary $related_parties] ", "]
 	    }
@@ -967,7 +967,7 @@
     {-format "html"}
 } {
 } {
-    set results [list]
+    set results {}
     if { $type eq "groups" && [string is integer $key] && $key ne ""} {
 	set true [_ contacts.True]
 	set false [_ contacts.False]
@@ -996,7 +996,7 @@
     {-object_type}
 } {
 } {
-    set groups_list [list]
+    set groups_list {}
     foreach group [contact::groups_list -package_id $package_id] {
 	util_unlist $group group_id group_name member_count component_count mapped_p default_p
 	if { [string is true $mapped_p] } {
@@ -1021,7 +1021,7 @@
     {-format "html"}
 } {
 } {
-    set results [list]
+    set results {}
     if { $type eq "privacy" } {
 	set true [_ contacts.True]
 	set false [_ contacts.False]
@@ -1153,7 +1153,7 @@
 } {
 
     # Allow for organizations and persons to set the locale
-    set list_of_locales [list]
+    set list_of_locales {}
     db_foreach locale_loop {
         select label, locale
         from enabled_locales