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.35 -r1.36
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	17 Sep 2003 14:40:45 -0000	1.35
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	18 Sep 2003 13:44:30 -0000	1.36
@@ -54,19 +54,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.
 } {
-    if { [catch { 
-        if { [template::util::is_true [parameter::get -parameter UseEmailForLoginP -package_id [ad_acs_kernel_id]]] } {
-            set p 1
-        } else {
-            set p 0
-        }
-    } errmsg] } {
-        global errorInfo
-        ns_log Error "Parameter acs-kernel.UseEmailForLoginP not a boolean:\n$errorInfo"
-        return 1
-    } else {
-        return $p
-    }
+    return [parameter::get -boolean -parameter UseEmailForLoginP -package_id [ad_acs_kernel_id]]
 }
 
 ad_proc -public auth::authenticate {