Index: TECH/ExceptionHandler.cls.xml
===================================================================
diff -u -r1969 -r2151
--- TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 1969)
+++ TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 2151)
@@ -57,5 +57,19 @@
 	Quit Exception
 ]]></Implementation>
 </Method>
+
+<Method name="Rethrow">
+<Description>
+Laat de callstack intakt</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If ('$Data(%Exception)) || ('$IsObject(%Exception))
+	{
+		Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+	}
+	
+	ZTRAP $ZERROR
+]]></Implementation>
+</Method>
 </Class>
 </Export>