Index: Tools/Mock/MockClassBase.cls.xml =================================================================== diff -u -r3150 -r3739 --- Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 3150) +++ Tools/Mock/MockClassBase.cls.xml (.../MockClassBase.cls.xml) (revision 3739) @@ -47,7 +47,7 @@ #dim MethodCallStub As Tools.Mock.MethodCallStub = ..FindMethodCall(MethodNaam,VerwachteParameterWaardenList) if $IsObject(MethodCallStub) { - do:( MethodCallStub.IsVerwacht() ) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("VerwachtMethodCall '"_MethodNaam_"' mag niet overschreven worden.")) + do:( MethodCallStub.IsVerwacht() ) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("VerwachtMethodCall '"_MethodNaam_"' mag niet 2x overschreven worden.")) } else { Set MethodCallStub = ##class(Tools.Mock.MethodCallStub).%New($this) Do MethodCallStub.ZetMethodNaam( MethodNaam )