Index: openacs-4/packages/forums/lib/message/threads-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/threads-chunk.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/forums/lib/message/threads-chunk.tcl	25 Jun 2018 09:15:00 -0000	1.30
+++ openacs-4/packages/forums/lib/message/threads-chunk.tcl	27 Jun 2018 17:17:06 -0000	1.31
@@ -146,8 +146,6 @@
 
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
 
-set visitor_name [_ acs-kernel.Unregistered_Visitor]
-
 db_multirow -extend {
     user_name
     screen_name
@@ -158,15 +156,11 @@
     n_messages_pretty
     state_pretty
 } messages messages_select {} {
-    if {$user_id > 0} {
-        set user [acs_user::get -user_id $user_id]
-        set screen_name [dict get $user screen_name]
-        set user_name   [dict get $user name]
+    set screen_name [acs_user::get_user_info -user_id $user_id -element screen_name]
+    set user_name   [person::name -person_id $user_id]
+
+    if {[acs_user::registered_user_p -user_id $user_id]} {
         set user_url [export_vars -base "${base_url}user-history" { user_id }]
-    } else {
-        set screen_name $visitor_name
-        set user_name   $visitor_name
-        set user_url    ""
     }
     
     set last_child_post_ansi [lc_time_system_to_conn $last_child_post_ansi]