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 -N -r1.41 -r1.42
--- openacs-4/packages/contacts/www/contact-add.tcl	8 Feb 2006 19:46:19 -0000	1.41
+++ openacs-4/packages/contacts/www/contact-add.tcl	10 Feb 2006 19:59:12 -0000	1.42
@@ -29,8 +29,8 @@
 } 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
+} elseif { [string eq $group_ids ""]} {
+    lappend group_ids $default_group
 }