Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.27.2.2 -r1.27.2.3
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	13 Dec 2019 12:22:50 -0000	1.27.2.2
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	2 Jan 2020 13:24:28 -0000	1.27.2.3
@@ -104,8 +104,9 @@
     {mode $elm_mode(email)}
 }
 
-if {  [acs_user::ScreenName] ne "none" } {
-    lappend elms_list [list screen_name:text[expr {$screen_name eq "solicit" ? ",optional" : ""}] \
+set screen_name_display_mode [acs_user::ScreenName]
+if {  $screen_name_display_mode ne "none" } {
+    lappend elms_list [list screen_name:text[expr {$screen_name_display_mode eq "solicit" ? ",optional" : ""}] \
                            {label "[_ acs-subsite.Screen_name]"} \
                            {html {size 50}} \
                            {mode $elm_mode(screen_name)} \