Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/www/admin/index.tcl	28 Jun 2005 19:23:41 -0000	1.7
+++ openacs-4/packages/contacts/www/admin/index.tcl	15 Jul 2005 21:01:52 -0000	1.8
@@ -115,19 +115,20 @@
 
 }
 
+set default_group [contacts::default_group]
 
     set ams_person_url [ams::list::url \
                           -package_key "contacts" \
                           -object_type "person" \
-                          -list_name "${package_id}__-2" \
-                          -pretty_name "${package_id}__-2" \
+                          -list_name "${package_id}__${default_group}" \
+                          -pretty_name "${package_id}__${default_group}" \
                           -return_url $return_url \
                           -return_url_label "[_ contacts.Return_to_title]"]
     set ams_org_url [ams::list::url \
                           -package_key "contacts" \
                           -object_type "organization" \
-                          -list_name "${package_id}__-2" \
-                          -pretty_name "${package_id}__-2" \
+                          -list_name "${package_id}__${default_group}" \
+                          -pretty_name "${package_id}__${default_group}" \
                           -return_url $return_url \
                           -return_url_label "[_ contacts.Return_to_title]"]