diff --git a/ChangeLog b/ChangeLog
index 84bb66280..c15dba2ad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-08  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/SOGo/SOGoObject.m ([SOGoObject
+	-davComplianceClassesInContext:localContext]): new method,
+	declaring "access-control" in the compliance classes.
+
 2008-02-07  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
 	* SoObjects/Mailer/SOGoMailAccount.m ([SOGoMailAccount
diff --git a/SoObjects/SOGo/SOGoObject.m b/SoObjects/SOGo/SOGoObject.m
index 9c5fbcee6..748461d97 100644
--- a/SoObjects/SOGo/SOGoObject.m
+++ b/SoObjects/SOGo/SOGoObject.m
@@ -1099,4 +1099,16 @@ static BOOL kontactGroupDAV = YES;
 		   [self nameInContainer]];
 }
 
+- (NSArray *) davComplianceClassesInContext: (WOContext *) localContext
+{
+  NSMutableArray *newClasses;
+
+  newClasses
+    = [NSMutableArray arrayWithArray:
+			[super davComplianceClassesInContext: localContext]];
+  [newClasses addObject: @"access-control"];
+
+  return newClasses;
+}
+
 @end /* SOGoObject */