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.26 -r1.59.2.27
--- openacs-4/packages/forums/tcl/messages-procs.tcl	2 Sep 2021 16:40:59 -0000	1.59.2.26
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	2 Sep 2021 18:29:09 -0000	1.59.2.27
@@ -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 $username]
+        set row(user_name)   [dict get $user name]
         set row(user_email)  [dict get $user email]
         set row(screen_name) [dict get $user screen_name]