From 08263bbcbd6376f3df6fe6ecdecab40bf44634dc Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Thu, 14 Nov 2019 19:22:46 +0000
Subject: restore verification for deleted interp

---
 generic/tclOOMethod.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index fbd23c0..0c5f4bb 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -675,7 +675,9 @@ InvokeProcedureMethod(
      * the next thing in the chain.
      */
 
-    if (!((CallContext *)context)->oPtr->namespacePtr) {
+    if (!((CallContext *)context)->oPtr->namespacePtr ||
+	Tcl_InterpDeleted(interp)
+    ) {
 	return TclNRObjectContextInvokeNext(interp, context, objc, objv,
 		Tcl_ObjectContextSkippedArgs(context));
     }
-- 
cgit v0.12