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.20 -r1.21
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	28 Oct 2005 17:55:35 -0000	1.20
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	4 Dec 2005 15:06:55 -0000	1.21
@@ -232,7 +232,7 @@
     set employee_list [contact::util::get_employees -organization_id $organization_id]
     foreach employee_id $employee_list {
 	# Only add the user if the user is already in the system as a user, not a person.
-	if {[contact::user_p $employee_id]} {
+	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