Index: openacs-4/packages/contacts/www/group-party.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-party.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/contacts/www/group-party.tcl	15 Feb 2006 10:06:36 -0000	1.3
+++ openacs-4/packages/contacts/www/group-party.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -11,7 +11,7 @@
 } -validate {
 }
 if { [exists_and_not_null party_id] } {
-    set party_ids [list]
+    set party_ids {}
     foreach party_id $party_id {
 	lappend party_ids $party_id
     }
@@ -23,7 +23,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 {
     contact::require_visiblity -party_id $party_id
     lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>"