diff --git a/ChangeLog b/ChangeLog
index 01b581ad8..c7e3787f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2007-11-08  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* SoObjects/SOGo/SOGoGCSFolder.m ([SOGoGCSFolder
+	+folderWithSubscriptionReference:referenceinContainer:aContainer]):
+	fixed a leak.
+
 	* UI/MailPartViewers/UIxMailPartHTMLViewer.m
 	([UIxMailPartHTMLViewer -_attachmentIds]): the reference was one
 	character too short, which cause the images not to be displayed
diff --git a/SoObjects/SOGo/SOGoGCSFolder.m b/SoObjects/SOGo/SOGoGCSFolder.m
index cf6f1296e..8bd4e6260 100644
--- a/SoObjects/SOGo/SOGoGCSFolder.m
+++ b/SoObjects/SOGo/SOGoGCSFolder.m
@@ -61,7 +61,7 @@ static NSString *defaultUserID = @"<default>";
 {
   id newFolder;
   NSArray *elements, *pathElements;
-  NSString *ocsPath, *objectPath, *login, *ocsName, *folderName;
+  NSString *path, *objectPath, *login, *ocsName, *folderName;
 
   elements = [reference componentsSeparatedByString: @":"];
   login = [elements objectAtIndex: 0];
@@ -72,12 +72,11 @@ static NSString *defaultUserID = @"<default>";
   else
     ocsName = @"personal";
 
-  ocsPath = [NSString stringWithFormat: @"/Users/%@/%@/%@",
-		      login, [pathElements objectAtIndex: 0], ocsName];
+  path = [NSString stringWithFormat: @"/Users/%@/%@/%@",
+		   login, [pathElements objectAtIndex: 0], ocsName];
   folderName = [NSString stringWithFormat: @"%@_%@", login, ocsName];
-  newFolder = [[self alloc] initWithName: folderName
-			    inContainer: aContainer];
-  [newFolder setOCSPath: ocsPath];
+  newFolder = [self objectWithName: folderName inContainer: aContainer];
+  [newFolder setOCSPath: path];
   [newFolder setOwner: login];
 
   return newFolder;