Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.72 -r1.73
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	15 Mar 2006 11:54:05 -0000	1.72
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	15 Mar 2006 17:15:11 -0000	1.73
@@ -946,6 +946,10 @@
 
     # Add to default group
     set default_group_id [contacts::default_group -package_id $contacts_package_id]
+    group::add_member \
+	-group_id $default_group_id \
+	-user_id $person_id \
+	-rel_type "membership_rel"
 
     # Store the AMS attribute
     set object_id [contact::revision::new -party_id $person_id]