--- a/MCClassDefinition.st	Mon Nov 29 15:31:54 2021 +0000
+++ b/MCClassDefinition.st	Tue Jul 12 16:37:17 2022 +0200
@@ -1,5 +1,5 @@
 "
-COPYRIGHT (c) 2020-2021 LabWare
+COPYRIGHT (c) 2020-2022 LabWare
 "
 "{ Package: 'stx:goodies/monticello' }"
 
@@ -17,7 +17,7 @@
 
 copyright
 "
-COPYRIGHT (c) 2020-2021 LabWare
+COPYRIGHT (c) 2020-2022 LabWare
 
 
 "
@@ -569,10 +569,21 @@
 !MCClassDefinition methodsFor:'queries'!
 
 requires: anMCDefinition
-    ^ anMCDefinition isClassDefinition 
-        and: [ anMCDefinition className = superclassName ]
+    anMCDefinition isClassDefinition ifFalse:[ ^ false ].
+
+    "/ Classes require their superclass
+    superclassName = anMCDefinition className ifTrue: [ ^ true ].
+
+    "/ Classes require their pool dictionaries
+    variables do: [:variable | 
+        (variable isPoolImport and: [ variable name = anMCDefinition className ]) 
+            ifTrue: [ ^ true ]
+    ].
+
+    ^ false.
 
     "Created: / 01-09-2020 / 16:28:48 / Jan Vrany <jan.vrany@labware.com>"
+    "Modified: / 12-07-2022 / 16:34:30 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !MCClassDefinition methodsFor:'serializing'!