Index: openacs-4/packages/xotcl-core/catalog/xotcl-core.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/catalog/xotcl-core.en_US.ISO-8859-1.xml,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/catalog/xotcl-core.en_US.ISO-8859-1.xml	25 Jun 2007 12:15:46 -0000	1.5
+++ openacs-4/packages/xotcl-core/catalog/xotcl-core.en_US.ISO-8859-1.xml	3 Jul 2007 08:20:26 -0000	1.6
@@ -8,6 +8,9 @@
   <msg key="edit_type">Edit %type%</msg>
   <msg key="has_entered_the_room">has entered the room</msg>
   <msg key="live_revision">Live Revision</msg>
+  <msg key="policy-error-insufficient_permissions">&lt;blockquote&gt;
+You don't have sufficient permissions for performing method %method% on object %object%.
+&lt;/blockquote&gt;&quot;</msg>
   <msg key="revision_title">Revisions of Entry</msg>
   <msg key="revisions">Revisions</msg>
 </message_catalog>
Index: openacs-4/packages/xotcl-core/tcl/policy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/policy-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	19 Jun 2007 11:18:37 -0000	1.8
+++ openacs-4/packages/xotcl-core/tcl/policy-procs.tcl	3 Jul 2007 08:20:26 -0000	1.9
@@ -176,9 +176,7 @@
     if {!$allowed} {
       ns_log notice "permission::require_permission: $user_id doesn't \
 		have $privilege on $object"
-      ad_return_forbidden  "Permission Denied"  "<blockquote>
-  You don't have sufficient permissions for $method on this object ($object).
-</blockquote>"
+      ad_return_forbidden  "Permission Denied" [_ xotcl-core.policy-error-insufficient_permissions]
       ad_script_abort
     }