Index: openacs-4/packages/acs-subsite/www/register/auto-login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/auto-login.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/register/auto-login.tcl	25 Feb 2004 10:48:48 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/register/auto-login.tcl	10 Jan 2007 21:22:09 -0000	1.2
@@ -14,7 +14,7 @@
                          -email [string trim $email] \
                          -password $password]
 
-if { [string equal $auth_info(auth_status) "ok"] } {
+if {$auth_info(auth_status) eq "ok"} {
     ad_returnredirect $return_url
     ad_script_abort
 } else {