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.13 -r1.14
--- openacs-4/packages/contacts/www/group-parties-remove.tcl	26 Apr 2018 08:56:38 -0000	1.13
+++ openacs-4/packages/contacts/www/group-parties-remove.tcl	9 May 2018 15:33:30 -0000	1.14
@@ -18,7 +18,7 @@
     }
 }
 if { [exists_and_not_null party_id] } {
-    set party_ids {}
+    set party_ids [list]
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -31,9 +31,9 @@
 
 	set group_ids $group_id
 	db_transaction {
-	    set message {}
+	    set message [list]
 	    foreach group_id $group_ids {
-		set contacts {}
+		set contacts [list]
 		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 {}
+set recipients [list]
 foreach party_id $party_ids {
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"
 }