Index: openacs-4/packages/forums/tcl/forums-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-security-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/tcl/forums-security-procs.tcl	3 Jun 2002 04:39:05 -0000	1.2
+++ openacs-4/packages/forums/tcl/forums-security-procs.tcl	6 Jun 2002 01:04:35 -0000	1.3
@@ -10,6 +10,13 @@
 
 namespace eval forum::security {
 
+    ad_proc -private do_abort {} {
+        do an abort if security violation
+    } {
+        ad_returnredirect "not-allowed"
+        return -code error
+    }    
+
     ad_proc -public can_read_forum_p {
         {-user_id ""}
         {-forum_id:required}