Index: vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml
===================================================================
diff -u -r54661 -r54662
--- vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54661)
+++ vhConsistency/Checks/DOM/PM/SelectieKenmerken.cls.xml	(.../SelectieKenmerken.cls.xml)	(revision 54662)
@@ -43,16 +43,28 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ClassDefinition As TECH.ClassInfo.ClassDefinition
-	#dim MethodDefinition As TECH.ClassInfo.MethodDefinition
 	#dim StandaardLadeKlasseIterator As TECH.Iterator = ..GeefStandaardLadeKlasseIterator()
+	#dim ClassName As %String
+	
+	While StandaardLadeKlasseIterator.HasNext() {
+		Set ClassName = StandaardLadeKlasseIterator.Next()
+		Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
+		
+		Do ..BerekenStandaardLadenInKlasse(ClassDefinition, ClassName)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenStandaardLadenInKlasse">
+<FormalSpec>ClassDefinition:TECH.ClassInfo.ClassDefinition,ClassName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	#dim MethodIterator As TECH.Iterator
+	#dim MethodDefinition As TECH.ClassInfo.MethodDefinition
+	#dim MethodName As %String
 	#dim IsMethodPublic As %Boolean
-	#dim ClassName, MethodName As %String
 	
-	Set ClassName = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%ClassName(1)
-	Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
 	Set MethodIterator = ClassDefinition.GeefMethods()
-	
 	While MethodIterator.HasNext() {
 		Set MethodDefinition = MethodIterator.Next()
 		Set MethodName = MethodDefinition.GeefNaam()