Index: Tools/Mock/MethodCallStub.cls.xml
===================================================================
diff -u -r838 -r900
--- Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 838)
+++ Tools/Mock/MethodCallStub.cls.xml	(.../MethodCallStub.cls.xml)	(revision 900)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Exception">
+<Type>TECH.Exceptions.Exception</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AantalKeerOpgeroepen">
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
@@ -80,7 +85,7 @@
 
 <Method name="DanException">
 <FormalSpec>Exception:TECH.Exceptions.BaseException</FormalSpec>
-<Implementation><![CDATA[	do ##class(TECH.ExceptionHandler).Throw(Exception)
+<Implementation><![CDATA[	set ..Exception = Exception
 ]]></Implementation>
 </Method>
 
@@ -133,6 +138,8 @@
 Mag enkel aangeroepen worden indien IsMatch(MethodNaam,Parameters) = true</Description>
 <FormalSpec><![CDATA[MethodNaam:%String,Parameters:%ListOfObjects,&HeeftReturnWaarde:%Boolean,&ReturnWaarde:%String]]></FormalSpec>
 <Implementation><![CDATA[
+	if $IsObject(..Exception) do ##class(TECH.ExceptionHandler).Throw(..Exception)
+	
 	Set ..AantalKeerOpgeroepen = ..AantalKeerOpgeroepen + 1
 	Set HeeftReturnWaarde = ..HeeftReturnWaarde
 	If ..HeeftReturnWaarde {