Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/register.tcl	29 Mar 2002 19:14:46 -0000	1.4
+++ openacs-4/packages/dotlrn/www/register.tcl	31 May 2002 06:29:00 -0000	1.5
@@ -47,7 +47,7 @@
 
 switch -exact $join_policy {
     "open" {
-        dotlrn_community::add_user $community_id $user_id
+        dotlrn_community::add_user -member_state approved $community_id $user_id
     }
     "needs approval" {
         dotlrn_community::add_user -member_state "needs approval" $community_id $user_id