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>