Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3348 -r3349
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3348)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3349)
@@ -253,26 +253,24 @@
 	
 	If $$$Not(Niveau = "I") {
 		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=?"
-		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
-		Do ..VerwijderLogRecords(Query)
+		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
 	} Else {
 		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep<>'WS.Vhisie4.Winkelkar.WinkelkarService'"
-		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
-		Do ..VerwijderLogRecords(Query)
+		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
 		
 		Set Datum = Datum - 20
 		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep='WS.Vhisie4.Winkelkar.WinkelkarService'"
-		Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
-		Do ..VerwijderLogRecords(Query)
+		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderLogRecords">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Query:TECH.DynamicQuery</FormalSpec>
+<FormalSpec>QueryString:%String,Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	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"))