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 -N -r1.11.4.1 -r1.11.4.2
--- openacs-4/packages/forums/lib/message/row.tcl	30 Sep 2013 11:33:54 -0000	1.11.4.1
+++ openacs-4/packages/forums/lib/message/row.tcl	10 Oct 2013 20:47:06 -0000	1.11.4.2
@@ -11,7 +11,6 @@
 
 set viewer_id [ad_conn user_id]
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
-set screen_name [db_string select_screen_name { select screen_name from users where user_id = :viewer_id}]
 
 if {(![info exists rownum] || $rownum eq "")} { 
     set rownum 1
@@ -22,6 +21,12 @@
 }
 
 set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
+
+if {$useScreenNameP} {
+    acs_user::get -user_id $viewer_id -array user_info
+    set screen_name $user_info(screen_name)
+}
+
 set message(screen_name) $screen_name
 
 # convert emoticons to images if the parameter is set