Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3472 -r3515
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3472)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3515)
@@ -270,11 +270,21 @@
 <FormalSpec>QueryString:%String,Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set LoggingIdsToDelete = ##class(%ListOfDataTypes).%New()
+	
 	Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	While ResultSet.Next() {
-		Do ##class(vhLib.Logging).%DeleteId(ResultSet.GetDataByName("ID"))
+		Do LoggingIdsToDelete.Insert(ResultSet.GetDataByName("ID"))
 	}
+	Do ResultSet.Close()
+	
+	
+	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingIdsToDelete )
+	While IdsToDeleteIterator.HasNext() {
+		Set IdToDelete = IdsToDeleteIterator.Next()
+		Do ##class(vhLib.Logging).DeleteLogging(IdToDelete)
+	}
 ]]></Implementation>
 </Method>
 </Class>