Index: openacs-4/packages/address-book/www/address-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/address-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/address-book/www/address-delete.tcl	20 Apr 2001 20:51:12 -0000	1.1
+++ openacs-4/packages/address-book/www/address-delete.tcl	25 Sep 2003 12:08:21 -0000	1.2
@@ -30,7 +30,7 @@
 	#Make extra sure that the object we're deleting is indeed an address:
 
 	if ![db_string address_is_orphan_p {select decode(count(*),0,0,1) from acs_objects where object_id = :address_id and object_type = 'pl_address'}] {
-	    ad_return_forbidden "Security Violation" "address_id was modified in transit"
+	    ad_return_forbidden "Permission Denied" "address_id was modified in transit"
 	    ad_script_abort
 	}
 
Index: openacs-4/packages/address-book/www/contact-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/address-book/www/contact-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/address-book/www/contact-delete.tcl	28 Aug 2001 23:51:54 -0000	1.2
+++ openacs-4/packages/address-book/www/contact-delete.tcl	25 Sep 2003 12:08:21 -0000	1.3
@@ -30,7 +30,7 @@
 	# Make extra sure that the object we're deleting is indeed a contact (and not a subtype):
 
 	if ![db_string contact_is_orphan_p {select decode(count(*),0,0,1) from acs_objects where object_id = :contact_id and object_type = 'ab_contact'}] {
-	    ad_return_forbidden "Security Violation" "contact_id was modified in transit"
+	    ad_return_forbidden "Permission Denied" "contact_id was modified in transit"
 	    ad_script_abort
 	}