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 -N -r1.59.2.16 -r1.59.2.17
--- openacs-4/packages/forums/tcl/messages-procs.tcl	12 May 2020 14:39:57 -0000	1.59.2.16
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	12 May 2020 15:21:40 -0000	1.59.2.17
@@ -98,8 +98,9 @@
     set message_url ${url}message-view?message_id=$message(root_message_id)
     set forum_url ${url}forum-view?forum_id=$message(forum_id)
 
+    set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
+
     # This computations are not used... just commented for now.
-    # set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
     # if {$useScreenNameP eq 0 && $user_id ne 0} {
     #     if { $user_id eq "" } {
     #         set user_id $message(user_id)