diff --git a/ChangeLog b/ChangeLog
index a1f7926a5..7fed1acab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2006-10-27  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/Contacts/SOGoContactLDAPEntry.m ([SOGoContactLDAPEntry
+	-vCard]): the "setVClass" NGVCard method really is "setClass"
+	instead.
+
 	* SoObjects/Contacts/SOGoContactLDAPFolder.m
 	([SOGoContactLDAPFolder -_searchAttributes]): fixed typo to
 	request the "streetAddress" instead of the "streetaddress".
diff --git a/SoObjects/Contacts/SOGoContactLDAPEntry.m b/SoObjects/Contacts/SOGoContactLDAPEntry.m
index 92f38c436..d164bbc55 100644
--- a/SoObjects/Contacts/SOGoContactLDAPEntry.m
+++ b/SoObjects/Contacts/SOGoContactLDAPEntry.m
@@ -139,7 +139,7 @@
   if (!vcard)
     {
       vcard = [[NGVCard alloc] initWithUid: [self nameInContainer]];
-      [vcard setVClass: @"PUBLIC"];
+      [vcard setClass: @"PUBLIC"];
       [vcard setProdID: @"-//OpenGroupware.org//SOGo"];
       [vcard setProfile: @"vCard"];
       info = [ldapEntry singleAttributeWithName: @"displayName"];