Index: TECH/CompiledClassUtils.cls.xml
===================================================================
diff -u -r2224 -r3887
--- TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2224)
+++ TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 3887)
@@ -50,6 +50,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsIncludeFileAanwezig">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String,IncludeFilename:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Contains(..GeefIncludeCode(), IncludeFilename)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIncludeCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IncludeCode As %String = ""
+	
+	If ##class(%Dictionary.CompiledClass).%ExistsId(ClassName) {
+		Set CompiledClass  = ##class(%Dictionary.CompiledClass).%OpenId(ClassName)
+		Set:($IsObject(CompiledClass)) IncludeCode = CompiledClass.IncludeCode
+	}
+	
+	Quit IncludeCode
+]]></Implementation>
+</Method>
+
 <Method name="GetSQLTableName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>