Index: vhUnitTest/Tools/Mock/TestMock.cls.xml
===================================================================
diff -u -r1444 -r1805
--- vhUnitTest/Tools/Mock/TestMock.cls.xml	(.../TestMock.cls.xml)	(revision 1444)
+++ vhUnitTest/Tools/Mock/TestMock.cls.xml	(.../TestMock.cls.xml)	(revision 1805)
@@ -18,150 +18,150 @@
 </Method>
 
 <Method name="TestExceptionBijGeenIndien">
-<Implementation><![CDATA[		Do $$$AssertException("DoeExceptionBijGeenIndien","TECH.Exceptions.MockException","is niet voorzien door de mock")
+<Implementation><![CDATA[	Do $$$AssertException("DoeExceptionBijGeenIndien","TECH.Exceptions.MockException","is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'")
 ]]></Implementation>
 </Method>
 
 <Method name="DoeExceptionBijGeenIndien">
-<Implementation><![CDATA[		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+<Implementation><![CDATA[	Do ..MockVoorbeeld.GeenParametersGeenReturn()
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParametersGeenReturn">
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersGeenReturn")
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParametersGeenReturn")
 		
-		Do ..MockVoorbeeld.GeenParametersGeenReturn()
+	Do ..MockVoorbeeld.GeenParametersGeenReturn()
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParametersDataTypeReturn">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParametersDataTypeReturn").DanReturn("A1")
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParametersDataTypeReturn").DanReturn("A1")
 		
-		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
-		Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+	Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
+	Do $$$AssertEquals( "A1", ..MockVoorbeeld.GeenParametersDataTypeReturn() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeenParameterObjectReturn">
 <Implementation><![CDATA[
-		Set ReturnObject = ##class(%ListOfDataTypes).%New()
-		Do ..MockVoorbeeld.IndienMethodCall("GeenParameterObjectReturn").DanReturn( ReturnObject )
+	Set ReturnObject = ##class(%ListOfDataTypes).%New()
+	Do ..MockVoorbeeld.IndienMethodCall("GeenParameterObjectReturn").DanReturn( ReturnObject )
 		
-		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
-		Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+	Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
+	Do $$$AssertEquals( ReturnObject, ..MockVoorbeeld.GeenParameterObjectReturn() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestDataTypeParameterDataTypeReturn">
 <Implementation><![CDATA[
-		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "A" ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "B" ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "A" ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("DataTypeParameterDataTypeReturn", "B" ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("A") )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.DataTypeParameterDataTypeReturn("B") )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="TestObjectParameterDataTypeReturn">
 <Implementation><![CDATA[
-		Set ObjectA = ##class(%ListOfObjects).%New()
-		Set ObjectB = ##class(%ListOfObjects).%New()
-		
-		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectA ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectB ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Set ObjectA = ##class(%ListOfObjects).%New()
+	Set ObjectB = ##class(%ListOfObjects).%New()
+	
+	Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectA ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("ObjectParameterDataTypeReturn", ObjectB ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectA ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.ObjectParameterDataTypeReturn( ObjectB ) )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn("C")
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.DataTypeParameterDataTypeReturn()
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="TestTweeParametersDataTypeReturn">
 <Implementation><![CDATA[
-		Set ObjectA = ##class(%ListOfObjects).%New()
-		Set ObjectB = ##class(%ListOfObjects).%New()
-		
-		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", ObjectA, 1 ).DanReturn( "1" )
-		Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", 2, ObjectB ).DanReturn( "2" )
-		
-		// Test ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
-		
-		// Test nogmaals ok indien juiste param
-		Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
-		Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
-				
-		// Test exc indien verkeerde param
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, ObjectB )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, 1 )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Set Exception = ##class(TECH.ExceptionHandler).Catch()
-			Do $$$AssertContains( Exception.ToString(), "is niet voorzien door de mock" )
-		}
-		
-		// Test exc indien verkeerde aantal params
-		try {
-			Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2 )
-			Do $$$AssertFalse(1, "Exception verwacht")
-		} catch E {
-			Do $$$AssertEquals( "<UNDEFINED>", E.Name )
-		}
+	Set ObjectA = ##class(%ListOfObjects).%New()
+	Set ObjectB = ##class(%ListOfObjects).%New()
+	
+	Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", ObjectA, 1 ).DanReturn( "1" )
+	Do ..MockVoorbeeld.IndienMethodCall("TweeParametersDataTypeReturn", 2, ObjectB ).DanReturn( "2" )
+	
+	// Test ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+	
+	// Test nogmaals ok indien juiste param
+	Do $$$AssertEquals( "1", ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, 1 ) )
+	Do $$$AssertEquals( "2", ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, ObjectB ) )
+			
+	// Test exc indien verkeerde param
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( ObjectA, ObjectB )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2, 1 )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do $$$AssertContains( Exception.ToString(), "is niet voorzien door 'vhUnitTest.Tools.Mock.MockVoorbeeld'" )
+	}
+	
+	// Test exc indien verkeerde aantal params
+	try {
+		Do ..MockVoorbeeld.TweeParametersDataTypeReturn( 2 )
+		Do $$$AssertFalse(1, "Exception verwacht")
+	} catch E {
+		Do $$$AssertEquals( "<UNDEFINED>", E.Name )
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/Mock/MethodCallError.cls.xml
===================================================================
diff -u -r1759 -r1805
--- Tools/Mock/MethodCallError.cls.xml	(.../MethodCallError.cls.xml)	(revision 1759)
+++ Tools/Mock/MethodCallError.cls.xml	(.../MethodCallError.cls.xml)	(revision 1805)
@@ -9,14 +9,14 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MisMatches:%String=""</FormalSpec>
+<FormalSpec>MockClass:Tools.Mock.MockClassBase,MisMatches:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	do ##super(MockClass)
 	Set ..MisMatches = MisMatches
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -25,7 +25,7 @@
 <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 = $$$CRLF _ $$$TAB _ "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door de mock : " _ $$$CRLF _ ..MisMatches
+	#Dim ExceptionBericht As %String = $$$CRLF _ $$$TAB _ "Methodcall '" _ MethodNaam _ "(" _ ParametersAlsString _ ")' is niet voorzien door '"_$classname(..MockClass)_"'" _ $$$CRLF _ ..MisMatches
 	
 	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.MockException).%New(ExceptionBericht))
 ]]></Implementation>
Index: Tools/Mock/MockClassBase.cls.xml
===================================================================
diff -u -r1759 -r1805
--- Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1759)
+++ Tools/Mock/MockClassBase.cls.xml	(.../MockClassBase.cls.xml)	(revision 1805)
@@ -26,7 +26,7 @@
 <FormalSpec>MethodNaam:%String,VerwachteParameterWaarden...:%String</FormalSpec>
 <ReturnType>Tools.Mock.MethodCallStub</ReturnType>
 <Implementation><![CDATA[
-	Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New()
+	Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New($this)
 	Do MethodCallStub.ZetMethodNaam( MethodNaam )
 	#dim VerwachteParameterWaardenList As %ListOfDataTypes = ##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes( .VerwachteParameterWaarden )		
 	Do MethodCallStub.ZetParameters( VerwachteParameterWaardenList )
@@ -87,7 +87,7 @@
 		Set Mismatches = Mismatches _ MethodCallStub.GeefMismatches()		
 	}
 	
-	if 'MatchGevonden set MethodCallStub  = ##class(Tools.Mock.MethodCallError).%New(Mismatches)
+	if 'MatchGevonden set MethodCallStub  = ##class(Tools.Mock.MethodCallError).%New($this,Mismatches)
 	quit MethodCallStub
 ]]></Implementation>
 </Method>
Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u -r1759 -r1805
--- Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1759)
+++ Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 1805)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MockClass">
+<Type>Tools.Mock.MockClassBase</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="MethodNaam">
 <Type>%String</Type>
 <Private>1</Private>
@@ -51,12 +56,14 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>MockClass:Tools.Mock.MockClassBase</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ArgumentMatchBepaler =  ##class(Tools.Mock.ArgumentMatchBepaler).%New()
+	set ..MockClass = MockClass
 	
 	Quit $$$OK
 ]]></Implementation>