Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -N -r1.66 -r1.67
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	10 Mar 2006 18:38:25 -0000	1.66
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	10 Mar 2006 20:07:11 -0000	1.67
@@ -155,7 +155,7 @@
 	and ( object_id_one = :organization_id or object_id_two = :organization_id )
 	and acs_rels.rel_type = 'contact_rels_employment'
     } {
-	if { [contact::visible_p -party_id $other_party_id -package_id $package_id_id] } {
+	if { [contact::visible_p -party_id $other_party_id -package_id $package_id] } {
 	    lappend contact_list $other_party_id
 	}
     }
@@ -193,7 +193,7 @@
 	and ( object_id_one = :organization_id or object_id_two = :organization_id )
 	and acs_rels.rel_type = 'contact_rels_employment'
     } {
-	if { [contact::visible_p -party_id $other_party_id -package_id $package_id_id] } {
+	if { [contact::visible_p -party_id $other_party_id -package_id $package_id] } {
 	    lappend contact_list [list [person::name -person_id $other_party_id] $other_party_id]
 	}
     }