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.17 -r1.18
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Nov 2001 01:11:31 -0000	1.17
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Nov 2001 03:05:31 -0000	1.18
@@ -295,7 +295,7 @@
 
 	    # Go through current users and make sure they are added!
 	    foreach user [list_users $community_id] {
-		set user_id [lindex $user 1]
+		set user_id [lindex $user 2]
 
 		# do the callbacks
 		applet_call $applet_key AddUser [list $community_id $user_id]
@@ -315,7 +315,7 @@
 	db_transaction {
 	    # Take care of all existing users
 	    foreach user [list_users $community_id] {
-		set user_id [lindex $user 1]
+		set user_id [lindex $user 2]
 
 		# do the callbacks
 		applet_call $applet_key RemoveUser [list $community_id $user_id]