Index: openacs-4/packages/contacts/www/group-parties-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-add.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/group-parties-add.tcl	28 Jun 2005 19:13:26 -0000	1.4
+++ openacs-4/packages/contacts/www/group-parties-add.tcl	6 Jul 2005 23:40:25 -0000	1.5
@@ -67,7 +67,7 @@
                 foreach party_id $party_ids {
 
                     switch [contact::type -party_id $party_id] {
-                        person {
+                        person - user {
                             set rel_type "membership_rel"
                         }
                         organization {