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.45 -r1.46
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	28 Sep 2003 01:22:39 -0000	1.45
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	1 Oct 2003 08:54:06 -0000	1.46
@@ -90,7 +90,7 @@
     Do we use email address for login? code wrapped in a catch, so the 
     proc will not break regardless of what the parameter value is.
 } {
-    return [parameter::get -boolean -parameter UseEmailForLoginP -package_id [ad_acs_kernel_id]]
+    return [parameter::get -boolean -parameter UseEmailForLoginP -package_id [ad_acs_kernel_id] -default 1]
 }
 
 ad_proc -public auth::authenticate {