Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -r1.30.2.5 -r1.30.2.6
--- openacs-4/packages/forums/lib/message/post.tcl	25 Jan 2022 16:44:25 -0000	1.30.2.5
+++ openacs-4/packages/forums/lib/message/post.tcl	25 Jan 2022 16:47:20 -0000	1.30.2.6
@@ -289,9 +289,11 @@
 
             set permissions(moderate_p) [permission::permission_p -object_id $forum_id -privilege "forum_moderate"]
 
-            db_transaction {
-                if { $permissions(moderate_p) } {
-                    forum::message::set_state -message_id $message_id -state "approved"
+            if { $permissions(moderate_p) } {
+                db_transaction {
+                    forum::message::set_state \
+                        -message_id $message_id \
+                        -state "approved"
                 }
             }