Index: openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	21 May 2002 17:30:02 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	2 Jun 2002 00:05:56 -0000	1.6
@@ -54,7 +54,7 @@
         foreach pattern [automatic_email_patterns] {
             if {[string match $pattern $email]} {
                 # create the dotLRN user now
-                dotlrn::user_add -type "student" -access_level "full" -user_id $user_id
+                dotlrn::user_add -type student -can_browse_p -user_id $user_id
                 break
             }
         }