Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -N -r1.59.2.7 -r1.59.2.8
--- openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 12:04:03 -0000	1.59.2.7
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 12:12:53 -0000	1.59.2.8
@@ -44,9 +44,10 @@
 
         set message_id [package_instantiate_object -var_list $var_list forums_message]
 
-        get -message_id $message_id -array message
-        if {[info exists message(state)] && $message(state) eq "approved"} {
-            do_notifications -message_id $message_id -user_id $user_id
+        forum::message::get -message_id $message_id -array message
+        if {$message(state) eq "approved"} {
+            forum::message::do_notifications \
+                -message_id $message_id -user_id $user_id
         }
 
     }  on_error {