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 -r1.8
--- openacs-4/packages/forums/lib/user/post-history-chunk.tcl	25 Nov 2011 19:16:11 -0000	1.7
+++ openacs-4/packages/forums/lib/user/post-history-chunk.tcl	27 Oct 2014 16:41:37 -0000	1.8
@@ -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 "
     {
@@ -116,6 +125,6 @@
 
 set dimensional_chunk [ad_dimensional $dimensional_list]
 
-if {[exists_and_not_null alt_template]} {
+if {([info exists alt_template] && $alt_template ne "")} {
     ad_return_template $alt_template
 }