Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostRepository.cls.xml
===================================================================
diff -u -r29059 -r48675
--- DOM/PM/Maatwerk/Calc/Kost/impl/KostRepository.cls.xml	(.../KostRepository.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/KostRepository.cls.xml	(.../KostRepository.cls.xml)	(revision 48675)
@@ -15,7 +15,7 @@
 	#dim RuntimeMode As TECH.enu.ResultSetRuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, Params, RuntimeMode)
 	
-	Quit ..GeefKostSpec(ResultSet)
+	Quit ..GeefKostSpec(ResultSet, Params)
 ]]></Implementation>
 </Method>
 
@@ -27,7 +27,7 @@
 	#dim Params As %List = $ListBuild(Familie, Variant, BerekenTag)
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, Params)
 
-	Quit ..GeefKostSpec(ResultSet)
+	Quit ..GeefKostSpec(ResultSet, Params)
 ]]></Implementation>
 </Method>
 
@@ -40,7 +40,7 @@
 <Method name="GeefKostSpec">
 <Description>
 De Resultset mag slechts één KostSpec bevatten, anders wordt er een Error gethrowed. </Description>
-<FormalSpec>ResultSet:%ResultSet</FormalSpec>
+<FormalSpec>ResultSet:%ResultSet,Params:%List=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostSpec</ReturnType>
 <Implementation><![CDATA[
@@ -51,13 +51,15 @@
 		Set KostSpecInfoID = ResultSet.Data("ID")
 		If (ResultSet.Next())
 		{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere KostenSpecInfo objecten gevonden"))
+			Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New(
+				"Meerdere KostenSpecInfo objecten gevonden. Params:'" _ ##class(TECH.ListUtils).ListbuildToPieces(Params) _ "'"))
 		}
 		Set KostSpec = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo).%OpenId(KostSpecInfoID).GeefKostSpec()
 	}
 	Else
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen KostenSpecInfo objecten gevonden"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New(
+			"Geen KostenSpecInfo objecten gevonden. Params:'" _ ##class(TECH.ListUtils).ListbuildToPieces(Params) _ "'. Dit kan aan locks of aan compilatie liggen"))
 	}
 	
 	Quit KostSpec