Index: TECH/ExceptionHandler.cls.xml
===================================================================
diff -u -r28 -r321
--- TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 28)
+++ TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 321)
@@ -57,5 +57,32 @@
 	Quit Exception
 ]]></Implementation>
 </Method>
+
+<Method name="Rethrow">
+<Description>
+Laat de callstack intakt. Exceptie is exceptioneel. Wanneer deze is leeggelaten wordt de bestaande exceptie gerethrowed (indien deze niet werd gecatched uiteraard!)
+In geval van een transactie kan de rethrow zonder exceptie parameter niet gebruikt worden omdat de $zerror ook wordt gerollbacked.
+Volgende stramien moet dan gebruikt worden:
+	Set Exceptie = ##class(TECH.ExceptionHandler).Catch()
+	TROLLBACK
+	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Exceptie:TECH.IException</FormalSpec>
+<Implementation><![CDATA[
+	If ('$Data(Exceptie))
+	{
+		If ('$Data(%Exception)) || ('$IsObject(%Exception))
+		{
+			Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+		}
+	}
+	Else
+	{
+		Set %Exception = Exceptie
+	}
+	
+	ZTRAP $ZERROR
+]]></Implementation>
+</Method>
 </Class>
 </Export>