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.35 -r1.36
--- openacs-4/packages/contacts/www/contact-add.tcl	12 Oct 2005 17:11:54 -0000	1.35
+++ openacs-4/packages/contacts/www/contact-add.tcl	12 Oct 2005 20:37:09 -0000	1.36
@@ -31,6 +31,7 @@
     ad_return_error "[_ contacts.lt_Insufficient_Permissi]" "[_ contacts.lt_You_do_not_have_permi]"
 }
 
+
 set path_info [ad_conn path_info]
 if { $path_info == "add/person" } {
     set object_type "person"
@@ -136,7 +137,7 @@
 	}
     } -new_request {
 	foreach group $group_ids {
-	    if { [permission::permission_p -object_id $group -party_id $user_id -privilege "create"] } {
+	    if { ![permission::permission_p -object_id $group -party_id $user_id -privilege "create"] } {
 		ad_return_error "[_ contacts.lt_Insufficient_Permissi]" "[_ contacts.lt_You_do_not_have_permi]"
 		ad_script_abort
 	    }