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.20 -r1.21
--- openacs-4/packages/forums/tcl/forums-security-procs.tcl	7 Jun 2018 16:59:24 -0000	1.20
+++ openacs-4/packages/forums/tcl/forums-security-procs.tcl	7 Jun 2018 17:53:11 -0000	1.21
@@ -36,7 +36,8 @@
         {-user_id ""}
         {-forum_id:required}
     } {
-        if {![can_read_forum_p -user_id $user_id -forum_id $forum_id]} {
+        # Probably this whole proc could be replaced by just permission::require_permission
+        if { ![permission::permission_p -party_id $user_id -object_id $forum_id -privilege "read"] } {
             do_abort
         }
     }
@@ -117,7 +118,7 @@
         {-message_id:required}
     } {
         forum::message::get -message_id $message_id -array message
-        return [can_read_forum_p -forum_id $message(forum_id) -user_id $user_id]
+        return [permission::permission_p -party_id $user_id -object_id $forum_id -privilege "read"]
     }
 
     ad_proc -deprecated -public require_read_message {