Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	15 Feb 2003 23:55:59 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	25 Sep 2003 12:01:39 -0000	1.14
@@ -103,7 +103,7 @@
             } else {
                 ns_log notice "$party_id doesn't have $privilege on object $object_id"
                 ad_return_forbidden \
-                    "Security Violation" \
+                    "Permission Denied" \
                     "<blockquote>
   You don't have permission to $privilege [db_string name {}].
   <br>
Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	24 Sep 2003 23:55:02 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	25 Sep 2003 12:01:39 -0000	1.33
@@ -474,14 +474,22 @@
 }
 
 ad_proc ad_return_forbidden {
-    title 
-    explanation
+    {title ""}
+    {explanation ""}
 } {
     Returns a page with the HTTP 403 (Forbidden) code, along with 
     the given title and explanation.  Should be used by 
     access-control filters that determine whether a user has 
     permission to request a particular page.
+
+    Title and explanation is optional. If neither is specified,
+    then a default "Permission Denied" message will be displayed.
 } {
+    if [template::util::is_nil title] && \
+	    [template::util::is_nil explanation] {
+	set title "Permission Denied"
+	set explanation "Sorry, you haven't been given access to this area."
+    }
     ad_return_exception_page 403 $title $explanation
 }