--- a/MCClassDefinition.st	Tue Sep 01 10:26:57 2020 +0100
+++ b/MCClassDefinition.st	Tue Sep 01 20:33:47 2020 +0100
@@ -532,6 +532,15 @@
 	^ name
 ! !
 
+!MCClassDefinition methodsFor:'queries'!
+
+requires: anMCDefinition
+    ^ anMCDefinition isClassDefinition 
+        and: [ anMCDefinition className = superclassName ]
+
+    "Created: / 01-09-2020 / 16:28:48 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !MCClassDefinition methodsFor:'serializing'!
 
 initializeWithName: nameString