Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	29 Sep 2003 13:47:49 -0000	1.21
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	2 Oct 2003 09:46:14 -0000	1.22
@@ -108,9 +108,6 @@
 } {
     array set auth_info [list]
 
-    # usernames are case insensitive
-    set username [string tolower $username]
-    
     set authority_id [auth::authority::local]
 
     set user_id [acs_user::get_by_username -username $username]