Index: openacs-4/packages/acs-subsite/www/register/email-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/email-confirm.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/register/email-confirm.tcl	25 Mar 2005 23:59:10 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/register/email-confirm.tcl	10 Jan 2007 21:22:09 -0000	1.10
@@ -7,7 +7,7 @@
 }
 
 if {![db_0or1row userp {select 1 from users where user_id = :user_id}]
-    || ![string equal $token [auth::get_user_secret_token -user_id $user_id]] } {
+    || $token ne [auth::get_user_secret_token -user_id $user_id] } {
     set title "Bad token"
     set message "The link given to authenticate your email was invalid."
     ad_return_template /packages/acs-subsite/lib/message