Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u -r1699 -r1759
--- Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1699)
+++ Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1759)
@@ -3,6 +3,11 @@
 <Class name="Tools.Mock.MethodCallStub">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="ArgumentMatchBepaler">
+<Type>Tools.Mock.ArgumentMatchBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="MethodNaam">
 <Type>%String</Type>
 <Private>1</Private>
@@ -45,6 +50,18 @@
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ArgumentMatchBepaler =  ##class(Tools.Mock.ArgumentMatchBepaler).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefMethodNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..MethodNaam
@@ -81,22 +98,24 @@
 <Implementation><![CDATA[
 	 Set ..HeeftReturnWaarde = 1
 	 Set ..ReturnWaarde = ReturnWaarde
-	 quit $this
+	 
+	 Quit $this
 ]]></Implementation>
 </Method>
 
 <Method name="DanDoeNiks">
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
-<Implementation><![CDATA[	quit $this
+<Implementation><![CDATA[	Quit $this
 ]]></Implementation>
 </Method>
 
 <Method name="DanException">
 <FormalSpec>Exception:TECH.Exceptions.BaseException</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	set ..Exception = Exception
-	quit
+	Set ..Exception = Exception
+	
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -107,19 +126,20 @@
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
 	Set ..VerwachtAantalKeerOpgeroepen = AantalKeer
-	quit $this
+	
+	Quit $this
 ]]></Implementation>
 </Method>
 
 <Method name="IsOpgeroepen">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..AantalKeerOpgeroepen > 0
+<Implementation><![CDATA[	Quit (..AantalKeerOpgeroepen > 0)
 ]]></Implementation>
 </Method>
 
 <Method name="IsExactAantalKeerOpgeroepen">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..AantalKeerOpgeroepen = ..VerwachtAantalKeerOpgeroepen
+<Implementation><![CDATA[	Quit (..AantalKeerOpgeroepen = ..VerwachtAantalKeerOpgeroepen)
 ]]></Implementation>
 </Method>
 
@@ -143,7 +163,7 @@
 
 <Method name="IsAantalKeerVerwacht">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..VerwachtAantalKeerOpgeroepen >= 0
+<Implementation><![CDATA[	Quit (..VerwachtAantalKeerOpgeroepen >= 0)
 ]]></Implementation>
 </Method>
 
@@ -152,13 +172,16 @@
 Mag enkel aangeroepen worden indien IsMatch(MethodNaam,Parameters) = true</Description>
 <FormalSpec><![CDATA[MethodNaam:%String,Parameters:%ListOfDataTypes,&HeeftReturnWaarde:%Boolean,&ReturnWaarde:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	if $IsObject(..Exception) do ##class(TECH.ExceptionHandler).Throw(..Exception)
+	If ($IsObject(..Exception)) {
+		Do ##class(TECH.ExceptionHandler).Throw(..Exception)
+	}
 	
 	Set ..AantalKeerOpgeroepen = ..AantalKeerOpgeroepen + 1
 	Set HeeftReturnWaarde = ..HeeftReturnWaarde
-	If ..HeeftReturnWaarde {
+	
+	If (..HeeftReturnWaarde) {
 		Set ReturnWaarde = ..ReturnWaarde
-		If $IsObject(ReturnWaarde) && ReturnWaarde.%Extends("TECH.Iterator") {
+		If ($IsObject(ReturnWaarde) && ReturnWaarde.%Extends("TECH.Iterator")) {
 			Do ReturnWaarde.Reset()	
 		}
 	}
@@ -176,22 +199,29 @@
 	#dim ParameterWaardenGelijk As %Boolean = 1
 	#dim ActueleParameterWaardenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ActueleParameterWaarden)
 	#dim VerwachteParameterWaardenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..VerwachteParameters)
-	#Dim ArgumentMatchBepaler As Tools.Mock.ArgumentMatchBepaler = ##class(Tools.Mock.ArgumentMatchBepaler).%New()
-	While( ParameterWaardenGelijk && ActueleParameterWaardenIterator.HasNext() && VerwachteParameterWaardenIterator.HasNext() )
-	{
+
+	While( ParameterWaardenGelijk && ActueleParameterWaardenIterator.HasNext() && VerwachteParameterWaardenIterator.HasNext() ) {
 		#dim VerwachteWaarde As %CacheString = VerwachteParameterWaardenIterator.Next()
 		#dim ActueleWaarde As %CacheString = ActueleParameterWaardenIterator.Next()
-		Set ParameterWaardenGelijk = ArgumentMatchBepaler.IsArgumentMatch( VerwachteWaarde, ActueleWaarde )
+		
+		Set ParameterWaardenGelijk = ..ArgumentMatchBepaler.IsArgumentMatch( VerwachteWaarde, ActueleWaarde )
 	}
+	
 	Quit ParameterWaardenGelijk
 ]]></Implementation>
 </Method>
 
 <Method name="IsDoorGebruikerGedefinieerd">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMismatches">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ArgumentMatchBepaler.GeefMisMatches()
+]]></Implementation>
+</Method>
 </Class>