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 -r1.27.2.1
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	12 Aug 2018 12:12:13 -0000	1.27
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	13 Mar 2019 11:19:43 -0000	1.27.2.1
@@ -104,8 +104,9 @@
     {mode $elm_mode(email)}
 }
 
-if { [acs_user::ScreenName] ne "none" } {
-    lappend elms_list [list screen_name:text[ad_decode [acs_user::ScreenName] "solicit" ",optional" ""] \
+set screen_name [acs_user::ScreenName]
+if { $screen_name ne "none" } {
+    lappend elms_list [list screen_name:text[expr {$screen_name eq "solicit" ? ",optional" : ""}] \
                            {label "[_ acs-subsite.Screen_name]"} \
                            {html {size 50}} \
                            {mode $elm_mode(screen_name)} \