Index: openacs-4/packages/forums/lib/message/row.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/forums/lib/message/row.tcl	15 Jun 2018 19:59:03 -0000	1.14
+++ openacs-4/packages/forums/lib/message/row.tcl	15 Jun 2018 20:50:33 -0000	1.15
@@ -23,9 +23,9 @@
 
 set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
 
-set user_name [acs_user::get_element \
-                   -user_id $message(user_id) \
-                   -element [expr {$useScreenNameP ? "screen_name" : "name"}]]
+set message(user_name) [acs_user::get_element \
+                            -user_id $message(user_id) \
+                            -element [expr {$useScreenNameP ? "screen_name" : "name"}]]
 
 # convert emoticons to images if the parameter is set
 if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } {