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.63.2.1 -r1.63.2.2
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	24 Mar 2004 19:26:28 -0000	1.63.2.1
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	29 Apr 2004 10:36:06 -0000	1.63.2.2
@@ -449,6 +449,9 @@
         }
     }
 
+    # email_verified_p 
+    set user_info(email_verified_p) $email_verified_p
+
     db_transaction {
         array set creation_info [auth::create_local_account \
                                      -user_id $user_id \