Index: TECH/File/impl/FileUtils.cls.xml
===================================================================
diff -u -r2393 -r2394
--- TECH/File/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2393)
+++ TECH/File/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2394)
@@ -15,7 +15,7 @@
 <Method name="GetFileList">
 <FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Files).GetFileList(Directory, FileMask, AddSubDir, IncludeDirs)
+<Implementation><![CDATA[	Quit ##class(TECH.Files).%New().GetFileList(Directory, FileMask, AddSubDir, IncludeDirs)
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/Persistentie/Repository.cls.xml
===================================================================
diff -u -r2382 -r2394
--- TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2382)
+++ TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2394)
@@ -83,7 +83,7 @@
 	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
-	
+
 	if ResultSet.Next() {
 		#dim Result As TECH.Persistent = ..GeefViaID(ResultSet.GetData(1))	
 		do:ResultSet.Next() ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen unieke data in '"_SqlTableName_"' gevonden met filter '"_Filter_"' en parameters '"_$$$LCVT(Params)_"'")
@@ -93,6 +93,21 @@
 	quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="BestaatViaFilter">
+<FormalSpec>Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+
+	Quit:ResultSet.Next() 1
+	Quit 0
+]]></Implementation>
+</Method>
 </Class>