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>