Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.53 -r1.54
--- openacs-4/packages/forums/tcl/messages-procs.tcl	25 Jun 2018 09:15:00 -0000	1.53
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	28 Jun 2018 09:44:29 -0000	1.54
@@ -229,16 +229,10 @@
             array unset row
         }
     } else {
-        if {$row(user_id) > 0} {
-            set user [acs_user::get -user_id $row(user_id)]
-            set row(user_name)   [dict get $user name]
-            set row(user_email)  [dict get $user email]
-            set row(screen_name) [dict get $user screen_name]
-        } else {
-            set row(user_name)   [_ acs-kernel.Unregistered_Visitor]
-            set row(user_email)  ""
-            set row(screen_name) $row(user_name)
-        }
+        set user [acs_user::get -user_id $row(user_id)]
+        set row(user_name)   [dict get $user name]
+        set row(user_email)  [dict get $user email]
+        set row(screen_name) [dict get $user screen_name]
         
         forum::get -forum_id $row(forum_id) -array forum
         set row(forum_name) $forum(name)