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