Index: openacs-4/packages/forums/lib/user/post-history-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/user/post-history-chunk.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/forums/lib/user/post-history-chunk.tcl	7 Aug 2017 23:48:11 -0000	1.9
+++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl	28 Jun 2018 08:18:52 -0000	1.10
@@ -18,14 +18,11 @@
 # provide screen_name functionality
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
 
-if {$useScreenNameP} {
+set message(screen_name) [expr {$useScreenNameP ?
+                                [acs_user::get_user_info \
+                                     -user_id $user_id \
+                                     -element "screen_name"] : ""}]
 
-   acs_user::get -user_id $user_id -array user_info
-   set message(screen_name) $user_info(screen_name)
-
-} else {
-   set message(screen_name) ""
-}
 set user_link [acs_community_member_link -user_id $user_id]