Index: TECH/Comparator/FileInfoComparator.cls.xml
===================================================================
diff -u -r2700 -r2707
--- TECH/Comparator/FileInfoComparator.cls.xml	(.../FileInfoComparator.cls.xml)	(revision 2700)
+++ TECH/Comparator/FileInfoComparator.cls.xml	(.../FileInfoComparator.cls.xml)	(revision 2707)
@@ -20,7 +20,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	if (##class(TECH.ClassUtils).BestaatProperty("TECH.FileInfo",PropertyName) = 0) {
+	if (##class(TECH.CompiledClassUtils).PropertyExists("TECH.FileInfo",PropertyName) = 0) {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw(PropertyName _" bestaat niet als property voor TECH.FileInfo.")
 	}
 		set ..PropertyName = PropertyName
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2700 -r2707
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2700)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2707)
@@ -117,30 +117,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BestaatProperty">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>KlasseNaam:%String,PropertyNaam:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#Dim Gevonden As %Boolean = $$$False
-	if ##class(%Dictionary.CompiledClass).%ExistsId(KlasseNaam) {
-		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
-		 set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
-		 while itProperties.HasNext() {
-			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
-			continue:Property.Name="%%OID"
-			continue:Property.Name="E"
-			If (Property.Name=PropertyNaam)
-			{
-				Set Gevonden = $$$True
-				quit
-			}
-		 }
-	}
-	Quit Gevonden
-]]></Implementation>
-</Method>
-
 <Method name="GeefPropertiesRecursief">
 <Description>
 Deze klasse geeft alle properties terug van een klasse, alsook de properties van de properties die geen basistype waren.</Description>