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.23 -r1.59.2.24
--- openacs-4/packages/forums/tcl/messages-procs.tcl	8 Aug 2020 11:19:23 -0000	1.59.2.23
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	11 Aug 2020 13:35:13 -0000	1.59.2.24
@@ -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]