Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	15 Dec 2005 22:20:49 -0000	1.23
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	29 Jan 2006 16:16:28 -0000	1.24
@@ -236,7 +236,7 @@
 	if {[contact::user_p -party_id $employee_id]} {
 	    # Just to be on the save side, we actually check if the user is already in .LRN
 	    dotlrn::user_add -user_id $employee_id
-	    dotlrn_club::add_user -community_id $club_id -user_id $employee_id
+	    dotlrn_club::add_user -community_id $community_id -user_id $employee_id
 	}
     }
 }
\ No newline at end of file