Index: TECH/ExceptionHandler.cls.xml
===================================================================
diff -u -r2151 -r2169
--- TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 2151)
+++ TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 2169)
@@ -60,13 +60,26 @@
 
 <Method name="Rethrow">
 <Description>
-Laat de callstack intakt</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(%Exception)) || ('$IsObject(%Exception))
+	If ('$Data(Exceptie))
 	{
-		Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+		If ('$Data(%Exception)) || ('$IsObject(%Exception))
+		{
+			Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+		}
 	}
+	Else
+	{
+		Set %Exception = Exceptie
+	}
 	
 	ZTRAP $ZERROR
 ]]></Implementation>