From cd39f34fa58e57741ef315b5f9587783ea6331a3 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sun, 11 Mar 2018 18:08:00 +0000
Subject: Attempt at providing the missing instance squelcher.

---
 generic/tclOO.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/generic/tclOO.c b/generic/tclOO.c
index c6ea91d..556ad80 100644
--- a/generic/tclOO.c
+++ b/generic/tclOO.c
@@ -934,10 +934,26 @@ ReleaseClassContents(
 	    TclDecrRefCount(filterObj);
 	}
 	ckfree(clsPtr->filters.list);
+	clsPtr->filters.list = NULL;
 	clsPtr->filters.num = 0;
     }
 
     /*
+     * Squelch our instances.
+     */
+
+    if (clsPtr->instances.num) {
+	Object *oPtr;
+
+	FOREACH(oPtr, clsPtr->instances) {
+	    TclOODecrRefCount(oPtr);
+	}
+	ckfree(clsPtr->instances.list);
+	clsPtr->instances.list = NULL;
+	clsPtr->instances.num = 0;
+    }
+
+    /*
      * Squelch our metadata.
      */
 
-- 
cgit v0.12