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.24 -r1.25
--- openacs-4/packages/contacts/www/contact-edit.tcl	19 Dec 2006 10:54:34 -0000	1.24
+++ openacs-4/packages/contacts/www/contact-edit.tcl	14 Jun 2007 19:16:26 -0000	1.25
@@ -33,15 +33,14 @@
 
 set default_group_id [contacts::default_group]
 if {![permission::permission_p -object_id $default_group_id -party_id $user_id -privilege "write"]} {
-    if {$user_change_p} {
-	# Check if the user is editing himself
-	# If not, redirect to the return_url
-	if {![string eq $party_id $user_id]} {
-	    ad_return_redirect $return_url
-	}
+    # Check if the user is editing himself
+    # If not, redirect to the return_url
+    if {![string eq $party_id $user_id]} {
+	ad_returnredirect $return_url
     } else {
-	ad_return_redirect $return_url
+	ad_returnredirect $return_url
     }
+    ad_script_abort
 }