From e1c6fdbd7b85563fd6549cdcca5bb8a2117b72dc Mon Sep 17 00:00:00 2001
From: Gavin Matthews <grm@ravenbrook.com>
Date: Fri, 21 Nov 1997 18:03:35 +0000
Subject: [PATCH] Change.dylan.170557.cottonwood

Copied from Perforce
 Change: 19027
 ServerID: perforce.ravenbrook.com
---
 mps/src/pool.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/mps/src/pool.c b/mps/src/pool.c
index 919b14674c4..47ece0e465f 100644
--- a/mps/src/pool.c
+++ b/mps/src/pool.c
@@ -1,6 +1,6 @@
 /* impl.c.pool: POOL IMPLEMENTATION
  *
- * $HopeName: MMsrc!pool.c(trunk.38) $
+ * $HopeName: MMsrc!pool.c(trunk.39) $
  * Copyright (C) 1997 The Harlequin Group Limited.  All rights reserved.
  *
  * This is the implementation of the generic pool interface.  The
@@ -12,7 +12,7 @@
 
 #include "mpm.h"
 
-SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.38) $");
+SRCID(pool, "$HopeName: MMsrc!pool.c(trunk.39) $");
 
 
 Bool PoolClassCheck(PoolClass class)
@@ -121,7 +121,6 @@ failInit:
   RingFinish(&pool->actionRing);
   RingFinish(&pool->segRing);
   RingFinish(&pool->bufferRing);
-  RingRemove(&pool->arenaRing);
   RingFinish(&pool->arenaRing);
   return res;
 }