Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/contacts/lib/groups.tcl	4 Dec 2005 22:14:02 -0000	1.11
+++ openacs-4/packages/contacts/lib/groups.tcl	31 Dec 2005 07:39:39 -0000	1.12
@@ -73,3 +73,4 @@
     set delete_p 0
 }
 
+set user_p [contact::user_p -party_id $party_id]
\ No newline at end of file