Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/contacts/www/contact-edit.tcl	6 Jul 2005 23:40:25 -0000	1.9
+++ openacs-4/packages/contacts/www/contact-edit.tcl	15 Jul 2005 21:01:52 -0000	1.10
@@ -29,8 +29,7 @@
 set form_elements {party_id:key}
 lappend form_elements {object_type:text(hidden)}
 
-
-set ams_forms [list "${package_id}__-2"]
+set ams_forms [list "${package_id}__[contacts::default_group]"]
 foreach group [contact::groups -expand "all" -privilege_required "read"] {
     set group_id [lindex $group 1]
     if { [lsearch $groups_belonging_to $group_id] >= 0 } {