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.9 -r1.10
--- openacs-4/packages/contacts/www/group-parties-remove.tcl	15 Feb 2006 10:06:36 -0000	1.9
+++ openacs-4/packages/contacts/www/group-parties-remove.tcl	1 May 2006 19:58:41 -0000	1.10
@@ -24,7 +24,7 @@
     }
 }
 foreach id $party_ids {
-    contact::require_visiblity -party_id $party_id
+    contact::require_visiblity -party_id $id
 }
 if { [exists_and_not_null group_id] } {
     if { $group_id != [contacts::default_group] || $confirmed_p } {