Index: Tools/Mock/ArgumentMatchers/ObjectMatcher.cls.xml
===================================================================
diff -u
--- Tools/Mock/ArgumentMatchers/ObjectMatcher.cls.xml	(revision 0)
+++ Tools/Mock/ArgumentMatchers/ObjectMatcher.cls.xml	(revision 1759)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.Mock.ArgumentMatchers.ObjectMatcher">
+<Super>TECH.RegisteredObject,Tools.Mock.ArgumentMatcher</Super>
+
+<Property name="ObjectDifferenciator">
+<Type>TECH.ObjectUtils.impl.Differenciator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ObjectDifferences">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="VerwachtObject">
+<Type>%Base</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerwachtObject:%Base</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..VerwachtObject = VerwachtObject
+	set ..ObjectDifferenciator = ##class(TECH.ObjectUtils.impl.Differenciator).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Matches">
+<FormalSpec>Object:%Base</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set ..ObjectDifferences = ..ObjectDifferenciator.GetDifferences(Object,..VerwachtObject)
+	quit ..ObjectDifferences.Count() = 0
+]]></Implementation>
+</Method>
+
+<Method name="OmschrijfMismatch">
+<FormalSpec>Object:%Base</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).ListToPieces(..ObjectDifferences,$$$CRLF)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
 
 
Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r1473 -r1759
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1473)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1759)
@@ -78,13 +78,16 @@
 	#dim ActueleParameterWaarden As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .Parameters )
 	#dim MethodCallStub As Tools.Mock.MethodCallStub
 	#dim MatchGevonden As %Boolean = 0
+	#Dim Mismatches As %String = ""
+
 	Set MethodCallStubsIterator = ##class(TECH.ListIterator).%New( ..MethodCallStubs )
 	While ('MatchGevonden && MethodCallStubsIterator.HasNext() ) {
 		set MethodCallStub = MethodCallStubsIterator.Next()
 		Set MatchGevonden = MethodCallStub.IsMatch( MethodNaam, ActueleParameterWaarden )
+		Set Mismatches = Mismatches _ MethodCallStub.GeefMismatches()		
 	}
 	
-	if 'MatchGevonden set MethodCallStub  = ##class(Tools.Mock.MethodCallError).%New()
+	if 'MatchGevonden set MethodCallStub  = ##class(Tools.Mock.MethodCallError).%New(Mismatches)
 	quit MethodCallStub
 ]]></Implementation>
 </Method>
Index: Tools/Mock/MethodCallError.cls.xml
===================================================================
diff -u -r1441 -r1759
--- Tools/Mock/MethodCallError.cls.xml	(.../MethodCallError.cls.xml)	(revision 1441)
+++ Tools/Mock/MethodCallError.cls.xml	(.../MethodCallError.cls.xml)	(revision 1759)
@@ -3,18 +3,37 @@
 <Class name="Tools.Mock.MethodCallError">
 <Super>Tools.Mock.MethodCallStub</Super>
 
+<Property name="MisMatches">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MisMatches:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MisMatches = MisMatches
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MockCall">
 <FormalSpec><![CDATA[MethodNaam:%String,Parameters:%ListOfDataTypes,&HeeftReturnWaarde:%Boolean,&ReturnWaarde:%String]]></FormalSpec>
 <Implementation><![CDATA[
 	#Dim ParametersAlsString As %String = $$$LCVT(##class(TECH.ListUtils).ListToPieces(Parameters))
-	#Dim ExceptionBericht As %String = $C(13,10)_$C(9)_"Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock."
-	Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.MockException).%New( ExceptionBericht ) )
+	#Dim ExceptionBericht As %String = $$$CRLF _ $$$TAB _ "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock : " _ $$$CRLF _ ..MisMatches
+	
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.MockException).%New(ExceptionBericht))
 ]]></Implementation>
 </Method>
 
 <Method name="IsDoorGebruikerGedefinieerd">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 0
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/Mock/ArgumentMatcher.cls.xml
===================================================================
diff -u -r1081 -r1759
--- Tools/Mock/ArgumentMatcher.cls.xml	(.../ArgumentMatcher.cls.xml)	(revision 1081)
+++ Tools/Mock/ArgumentMatcher.cls.xml	(.../ArgumentMatcher.cls.xml)	(revision 1759)
@@ -9,7 +9,7 @@
 
 <Method name="Matches">
 <Abstract>1</Abstract>
-<FormalSpec>Argument:%String</FormalSpec>
+<FormalSpec>Argument:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
@@ -18,7 +18,7 @@
 Geeft een omschrijving van waarom een Argument geen match is.
 Bedoeld voor output in automatische tests, om debugging te vereenvoudigen.</Description>
 <Abstract>1</Abstract>
-<FormalSpec>Argument:%String</FormalSpec>
+<FormalSpec>Argument:%CacheString</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 </Class>
Index: Tools/Mock/ArgumentMatchBepaler.cls.xml
===================================================================
diff -u -r1081 -r1759
--- Tools/Mock/ArgumentMatchBepaler.cls.xml	(.../ArgumentMatchBepaler.cls.xml)	(revision 1081)
+++ Tools/Mock/ArgumentMatchBepaler.cls.xml	(.../ArgumentMatchBepaler.cls.xml)	(revision 1759)
@@ -3,22 +3,37 @@
 <Class name="Tools.Mock.ArgumentMatchBepaler">
 <Description>
 Controle of een actuele waarde overeenkomt met de verwachte waarde, of een match is met de ArgumentMatcher.</Description>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Property name="MisMatches">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefMisMatches">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..MisMatches
+]]></Implementation>
+</Method>
+
 <Method name="IsArgumentMatch">
 <FormalSpec>VerwachteWaarde:%CacheString,ActueleWaarde:%CacheString</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-		#Dim Resultaat = 0
-	
-		If ($IsObject(VerwachteWaarde) && VerwachteWaarde.%Extends("Tools.Mock.ArgumentMatcher")) {
-			#Dim ArgumentMatcher As Tools.Mock.ArgumentMatcher = VerwachteWaarde
-			Set Resultaat = ArgumentMatcher.Matches( ActueleWaarde )
-		} Else {
-			Set Resultaat = (VerwachteWaarde = ActueleWaarde)
+	#Dim IsMatch As %Boolean = $$$False
+
+	If ($IsObject(VerwachteWaarde) && VerwachteWaarde.%Extends("Tools.Mock.ArgumentMatcher")) {
+		#Dim ArgumentMatcher As Tools.Mock.ArgumentMatcher = VerwachteWaarde
+		Set IsMatch = ArgumentMatcher.Matches( ActueleWaarde )
+		
+		If $$$Not(IsMatch) {
+			Set ..MisMatches = ..MisMatches _ ArgumentMatcher.OmschrijfMismatch()
 		}
-	
-		Quit Resultaat
+	} Else {
+		Set IsMatch = (VerwachteWaarde = ActueleWaarde)
+	}
+
+	Quit IsMatch
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/Mock/ArgumentMatchers/ListMatcher.cls.xml
===================================================================
diff -u -r1081 -r1759
--- Tools/Mock/ArgumentMatchers/ListMatcher.cls.xml	(.../ListMatcher.cls.xml)	(revision 1081)
+++ Tools/Mock/ArgumentMatchers/ListMatcher.cls.xml	(.../ListMatcher.cls.xml)	(revision 1759)
@@ -4,7 +4,7 @@
 <Description>
 Een argument is een match als het dezelfde set van elementen bevat als de verwachte lijst.
 Optioneel mag de volgorde anders zijn.</Description>
-<Super>%RegisteredObject,Tools.Mock.ArgumentMatcher</Super>
+<Super>TECH.RegisteredObject,Tools.Mock.ArgumentMatcher</Super>
 
 <Property name="VerwachteList">
 <Type>%ListOfDataTypes</Type>