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 -r1.59.2.25 -r1.59.2.26
--- openacs-4/packages/forums/tcl/messages-procs.tcl	1 Feb 2021 11:01:48 -0000	1.59.2.25
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	2 Sep 2021 16:40:59 -0000	1.59.2.26
@@ -372,7 +372,7 @@
     }]
     if {[db_0or1row select_message $sql -column_array row]} {
         set user [acs_user::get -user_id $row(user_id)]
-        set row(user_name)   [dict get $user name]
+        set row(user_name)   [dict get $username]
         set row(user_email)  [dict get $user email]
         set row(screen_name) [dict get $user screen_name]
 
@@ -387,7 +387,7 @@
     {-state:required}
 } {
     Set the new state for a message.<br>
-    Usually used for approval.
+    Usually, used for approval.
 } {
     set var_list [list \
         [list message_id $message_id] \