diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c
index bfff4e9297f..512db605fe6 100644
--- a/generic/tclOOCall.c
+++ b/generic/tclOOCall.c
@@ -756,6 +756,9 @@ AddSimpleChainToCallContext(
 	    }
 	}
     }
+    if (!oPtr->selfCls) {
+	return;
+    }
     AddSimpleClassChainToCallContext(oPtr->selfCls, methodNameObj, cbPtr,
 	    doneFilters, flags, filterDecl);
 }