Index: TECH/Persistentie/Repository.cls.xml
===================================================================
diff -u -r2375 -r2376
--- TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2375)
+++ TECH/Persistentie/Repository.cls.xml	(.../Repository.cls.xml)	(revision 2376)
@@ -81,15 +81,15 @@
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
 	#dim SQLTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
-	#dim SqlStatement As TECH.String = "SELECT * FROM " _SQLTableName _" WHERE " _Filter
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SQLTableName _" WHERE " _Filter
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
 
 	#dim Result As TECH.Persistent = ""
 
 	#dim RecordCount = 0
 	while ResultSet.Next() {
-		Set Result = $classMethod(..#DataClassName,"%OpenId",ResultSet.Data("ID"))
+		Set Result = ..GeefViaID(ResultSet.GetData(1))
 		Set RecordCount = RecordCount +1
 		If RecordCount > 1 {
 			Do ##class(TECH.Exceptions.DataNotFoundException).Throw("geen unieke data gevonden voor " _..#DataClassName)