From 561eb3f0582bdd819d74951a8a7ae933cfcafd69 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 21 May 2024 10:49:54 +0000
Subject: circumvent crash [7842f33a5cc5eed0] on null ptr (oPtr->selfCls may be
 NULL)

---
 generic/tclOOCall.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c
index c421cad..bac6518 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -930,7 +930,7 @@ AddSimpleChainToCallContext(
 		contextCls, methodNameObj, cbPtr, doneFilters, flags,
 		filterDecl);
     }
-    if (!blockedUnexported) {
+    if (!blockedUnexported && oPtr->selfCls) {
 	foundPrivate |= AddSimpleClassChainToCallContext(oPtr->selfCls,
 		methodNameObj, cbPtr, doneFilters, flags, filterDecl);
     }
-- 
cgit v0.12