In BTree and Bucket dealloc code, do not clear a ghost!

src/BTrees/BTreeTemplate.c

@@ -12,7 +12,7 @@
   
  ****************************************************************************/
 
-#define BTREETEMPLATE_C "$Id: BTreeTemplate.c,v 1.35 2002/05/31 20:59:10 tim_one Exp $\n"
+#define BTREETEMPLATE_C "$Id: BTreeTemplate.c,v 1.36 2002/06/06 19:30:21 jeremy Exp $\n"
 
 /*
 ** _BTree_get
@@ -1217,6 +1217,7 @@ static struct PyMethodDef BTree_methods[] = {
 static void
 BTree_dealloc(BTree *self)
 {
+  if (self->state != cPersistent_GHOST_STATE)
     _BTree_clear(self);
 
   PER_DEL(self);

src/BTrees/BucketTemplate.c

@@ -12,7 +12,7 @@
   
  ****************************************************************************/
 
-#define BUCKETTEMPLATE_C "$Id: BucketTemplate.c,v 1.32 2002/06/05 19:26:55 tim_one Exp $\n"
+#define BUCKETTEMPLATE_C "$Id: BucketTemplate.c,v 1.33 2002/06/06 19:30:21 jeremy Exp $\n"
 
 /*
 ** _bucket_get
@@ -1164,6 +1164,7 @@ static struct PyMethodDef Bucket_methods[] = {
 static void
 Bucket_dealloc(Bucket *self)
 {
+    if (self->state != cPersistent_GHOST_STATE)
 	_bucket_clear(self);
 
     PER_DEL(self);