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.7.2.1 -r1.7.2.2
--- openacs-4/packages/forums/lib/user/post-history-chunk.tcl	30 Sep 2013 11:33:54 -0000	1.7.2.1
+++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl	21 Oct 2013 06:18:28 -0000	1.7.2.2
@@ -14,9 +14,18 @@
 
 # provide screen_name functionality
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
-set screen_name [db_string select_screen_name { select screen_name from users where user_id = :user_id}]
+
+if {$useScreenNameP} {
+
+   acs_user::get -user_id $viewer_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]
 
+
 # choosing the view
 set dimensional_list "
     {