From 810c251b8675bc0d663a126b5e845a0e989da1e0 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Wed, 22 May 2024 10:11:59 +0000
Subject: small amend to [1d16344c8cfaecc8], [7842f33a5cc5eed0]: don't need to
 invoke both functions in case if oPtr->selfCls is NULL

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

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