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 -r1.86 -r1.87
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	15 Feb 2010 22:46:05 -0000	1.86
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	8 Nov 2010 23:09:10 -0000	1.87
@@ -1415,7 +1415,7 @@
 } {
     Get a secret token for the user. Can be used for email verification purposes. 
 } {
-    return [db_string select_secret_token {}]
+    return [ns_sha1 "${user_id}[sec_get_token 1]"]
 }
 
 ad_proc -private auth::send_email_verification_email {