Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/contacts/www/contact-add.tcl	3 Feb 2006 23:05:41 -0000	1.40
+++ openacs-4/packages/contacts/www/contact-add.tcl	8 Feb 2006 19:46:19 -0000	1.41
@@ -26,9 +26,11 @@
 
 if {[empty_string_p $group_ids] && [llength $group_list] > 1} {
     ad_returnredirect "[export_vars -base "../select-groups" -url {object_type}]"
-} elseif { [lsearch $group_ids $default_group] < 0 } {
+} elseif { ![string eq $group_ids ""] && [lsearch $group_ids $default_group] < 0 } {
     # an invalid group_ids list has been specified or they do not have permission to add person
     ad_return_error "[_ contacts.lt_Insufficient_Permissi]" "[_ contacts.lt_You_do_not_have_permi]"
+} else {
+    set group_ids $default_group
 }