Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	17 Jun 2005 05:44:38 -0000	1.5
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl	15 Jul 2005 21:01:52 -0000	1.6
@@ -37,7 +37,7 @@
 	set contacts_package_id $package_id
     }
 
-    set registered_user_group_id "-2"
+    set registered_user_group_id [contacts::default_group -package_id $package_id]
 
 
     # This is a check for the customer and supplier id if P/O is installed.
@@ -1702,4 +1702,4 @@
 	-sort_order "1" \
 	-required_p "f" \
 	-section_heading ""
-}
\ No newline at end of file
+}