Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	17 Nov 2001 11:40:42 -0000	1.2
@@ -32,15 +32,11 @@
       ad_maybe_redirect_for_registration
     } else {
       ns_log Notice "$user_id doesn't have $privilege on object $object_id"
-      ns_write "[ad_header "Security Violation"]
-      <h2>Security Violation</h2>
-      <hr>
-      <blockquote>
+      ad_return_forbidden "Security Violation" "<blockquote>
       You don't have permission to $privilege [db_string name {select acs_object.name(:object_id) from dual}].
       <p>
       This incident has been logged.
-      </blockquote>
-      [ad_footer]"
+      </blockquote>"
     }
     ad_script_abort
   }