@@ -46,11 +46,11 @@
 	OFList *pool_list;
 
 	@try {
 		pool_list = [OFThread objectForTLSKey: pool_list_key];
 	} @catch (OFNotInSetException *e) {
-		[e free];
+		[e dealloc];
 		[[self alloc] init];
 		pool_list = [OFThread objectForTLSKey: pool_list_key];
 	}
 
 	if ([pool_list last] == NULL)
@@ -71,11 +71,11 @@
 	objects = nil;
 
 	@try {
 		pool_list = [OFThread objectForTLSKey: pool_list_key];
 	} @catch (OFNotInSetException *e) {
-		[e free];
+		[e dealloc];
 		pool_list = [[OFList alloc] initWithoutRetainAndRelease];
 		[OFThread setObject: pool_list
 			  forTLSKey: pool_list_key];
 		[pool_list release];
 	}
@@ -83,11 +83,11 @@
 	listobj = [pool_list append: self];
 
 	return self;
 }
 
-- free
+- (void)dealloc
 {
 	/*
 	 * FIXME:
 	 * Maybe we should get the objects ourself, release them and then
 	 * release the pool without calling its release method? This way,
@@ -96,11 +96,11 @@
 	if (listobj->next != NULL)
 		[listobj->next->object release];
 
 	[[OFThread objectForTLSKey: pool_list_key] remove: listobj];
 
-	return [super free];
+	[super dealloc];
 }
 
 - addToPool: (OFObject*)obj
 {
 	if (objects == nil)