Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r9 -r349
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 9)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 349)
@@ -5,6 +5,20 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Method name="IsOurs">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsOurs As %Boolean = '##class(TECH.StringUtils).StartsWith(Classname,"%")
+	if IsOurs set IsOurs = ##class(%Dictionary.ClassDefinition).%ExistsId(Classname)
+	if IsOurs {
+		set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
+		set IsOurs = '$length(ClassDefinition.GeneratedBy)
+	}
+	quit IsOurs
+]]></Implementation>
+</Method>
+
 <Method name="ControleerParameters">
 <Description>
 Controleer van de webmethod zijn parameters adhv een deep-validation uit te voeren.