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>