diff --git a/SOPE/NGCards/ChangeLog b/SOPE/NGCards/ChangeLog
index 2ec2ccb34..c8f0df094 100644
--- a/SOPE/NGCards/ChangeLog
+++ b/SOPE/NGCards/ChangeLog
@@ -1,5 +1,9 @@
 2007-03-07  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* iCalEntityObject.m ([iCalEntityObject -symbolicAccessClass]):
+	new method that parses the "CLASS" element of the card and returns
+	an enum value.
+
 	* NSString+NGCards.m ([NSString -foldedForVersitCards]):
 	simplified method by initializing and returning folderString
 	unconditionnally. If length < 76, the original string is appended
diff --git a/SOPE/NGCards/iCalEntityObject.h b/SOPE/NGCards/iCalEntityObject.h
index de7c10a9c..954c8f661 100644
--- a/SOPE/NGCards/iCalEntityObject.h
+++ b/SOPE/NGCards/iCalEntityObject.h
@@ -60,6 +60,7 @@ typedef enum
 
 - (void) setAccessClass:(NSString *) _value;
 - (NSString *) accessClass;
+- (iCalAccessClass) symbolicAccessClass;
 - (BOOL) isPublic;
 
 - (void) setPriority: (NSString *) _value;
diff --git a/SOPE/NGCards/iCalEntityObject.m b/SOPE/NGCards/iCalEntityObject.m
index d45de9d0b..1239e2339 100644
--- a/SOPE/NGCards/iCalEntityObject.m
+++ b/SOPE/NGCards/iCalEntityObject.m
@@ -118,9 +118,25 @@
   return [[self uniqueChildWithTag: @"class"] value: 0];
 }
 
+- (iCalAccessClass) symbolicAccessClass
+{
+  iCalAccessClass symbolicAccessClass;
+  NSString *accessClass;
+
+  accessClass = [[self accessClass] uppercaseString];
+  if ([accessClass isEqualToString: @"PRIVATE"])
+    symbolicAccessClass = iCalAccessPrivate;
+  else if ([accessClass isEqualToString: @"CONFIDENTIAL"])
+    symbolicAccessClass = iCalAccessConfidential;
+  else
+    symbolicAccessClass = iCalAccessPublic;
+
+  return symbolicAccessClass;
+}
+
 - (BOOL) isPublic
 {
-  return [[[self accessClass] uppercaseString] isEqualToString: @"PUBLIC"];
+  return ([self symbolicAccessClass] == iCalAccessPublic);
 }
 
 - (void) setPriority: (NSString *) _value