diff --git a/ChangeLog b/ChangeLog
index 7a3ae543f..5bd1d89bf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 2009-03-18  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/Contacts/SOGoContactLDIFEntry.m ([SOGoContactLDIFEntry
+	-vCard]): same as below.
+
+	* SoObjects/Appointments/SOGoFreeBusyObject.m ([SOGoFreeBusyObject
+	-iCalStringForFreeBusyInfos:_infoswithMethod:methodfrom:_startDateto:_endDate]):
+	same as below.
+
+	* SoObjects/Appointments/SOGoCalendarComponent.m
+	([SOGoCalendarComponent -calendar:create:secure]): specify
+	"-//Inverse inc./SOGo 1.0//EN" as PRODID.
+
 	* Main/sogod.m (convertOldSOGoDomain): new function that convert
 	the old "sogod-0.9" NSUserDefaults domain to "sogod".
 
diff --git a/SoObjects/Appointments/SOGoCalendarComponent.m b/SoObjects/Appointments/SOGoCalendarComponent.m
index 40da38218..017473402 100644
--- a/SoObjects/Appointments/SOGoCalendarComponent.m
+++ b/SoObjects/Appointments/SOGoCalendarComponent.m
@@ -385,7 +385,7 @@ _occurenceHasID (iCalRepeatableEntityObject *occurence, NSString *recID)
 	    {
 	      ASSIGN (*calendar, [iCalCalendar groupWithTag: @"vcalendar"]);
 	      [*calendar setVersion: @"2.0"];
-	      [*calendar setProdID: @"-//Inverse inc.//SOGo 0.9//EN"];
+	      [*calendar setProdID: @"-//Inverse inc./SOGo 1.0//EN"];
 	      tag = [[self componentTag] uppercaseString];
 	      newComponent = [[*calendar classForTag: tag]
 			       groupWithTag: tag];
diff --git a/SoObjects/Appointments/SOGoFreeBusyObject.m b/SoObjects/Appointments/SOGoFreeBusyObject.m
index fe1e1c924..d86af7746 100644
--- a/SoObjects/Appointments/SOGoFreeBusyObject.m
+++ b/SoObjects/Appointments/SOGoFreeBusyObject.m
@@ -124,7 +124,7 @@ static unsigned int freebusyRangeEnd = 0;
   user = [SOGoUser userWithLogin: uid  roles: nil];
 
   calendar = [iCalCalendar groupWithTag: @"vcalendar"];
-  [calendar setProdID: @"//Inverse inc./SOGo 0.9"];
+  [calendar setProdID: @"//Inverse inc./SOGo 1.0//EN"];
   [calendar setVersion: @"2.0"];
   if (method)
     [calendar setMethod: method];
diff --git a/SoObjects/Contacts/SOGoContactLDIFEntry.m b/SoObjects/Contacts/SOGoContactLDIFEntry.m
index c0b084189..79a951d4e 100644
--- a/SoObjects/Contacts/SOGoContactLDIFEntry.m
+++ b/SoObjects/Contacts/SOGoContactLDIFEntry.m
@@ -121,7 +121,7 @@
     {
       vcard = [[NGVCard alloc] initWithUid: [self nameInContainer]];
       [vcard setVClass: @"PUBLIC"];
-      [vcard setProdID: @"-//Inverse inc.//SOGo"];
+      [vcard setProdID: @"-//Inverse inc./SOGo 1.0//EN"];
       [vcard setProfile: @"vCard"];
       info = [ldifEntry objectForKey: @"displayName"];
       if (!(info && [info length] > 0))