Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.183.2.3.4.10 -r1.183.2.3.4.11
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 Aug 2004 20:17:11 -0000	1.183.2.3.4.10
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	14 Sep 2004 15:34:27 -0000	1.183.2.3.4.11
@@ -762,6 +762,9 @@
                 [get_toplevel_community_type_from_community_id $community_id]
 
         if {[string equal $toplevel_community_type dotlrn_class_instance]} {
+	    if {$rel_type == "dotlrn_member_rel"} {
+                set rel_type "dotlrn_student_rel"
+            }
             dotlrn_class::add_user \
                 -rel_type $rel_type \
                 -community_id $community_id \