Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -N -r1.87.4.5 -r1.87.4.6
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Oct 2013 14:05:55 -0000	1.87.4.5
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Oct 2013 14:23:56 -0000	1.87.4.6
@@ -1439,7 +1439,7 @@
                         set result(account_message) [_ acs-subsite.Error_sending_verification_mail]
                     }
                 }
-            } elseif { [string equal [acs_user::ScreenName] "require"] && $screen_name eq "" } {
+            } elseif { [acs_user::ScreenName] eq "require" && $screen_name eq "" } {
                 set message "Please enter a screen name now."
                 set result(account_url) [export_vars -no_empty -base "[subsite::get_element -element url]user/basic-info-update" { message return_url {edit_p 1} }]
             } elseif { $PasswordExpirationDays > 0 && \