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>