Index: openacs-4/packages/forums/www/messages-get.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/messages-get.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/forums/www/messages-get.tcl	7 Aug 2017 23:48:11 -0000	1.3
+++ openacs-4/packages/forums/www/messages-get.tcl	3 Sep 2024 15:37:39 -0000	1.4
@@ -1,13 +1,14 @@
 ad_page_contract {
 } {
-    cid:integer
+    cid:object_type(forums_message)
     {op noop}
     {sid nosid}
     {dynamicmode:integer}
 }
 
 if {$dynamicmode} {
     forum::message::get -message_id $cid -array message
+    forum::security::require_read_forum -forum_id $message(forum_id)
     set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
 } else {
     set message(content) {}