Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1984 -r2083
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1984)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 2083)
@@ -41,6 +41,14 @@
 <Type>%GlobalCharacterStream</Type>
 </Property>
 
+<Method name="Throw">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set Exception = ..%New()
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -232,6 +240,15 @@
 	Quit ExtraInfo
 ]]></Implementation>
 </Method>
+
+<Method name="Rethrow">
+<FormalSpec>ExceptieType:%String,Omschrijving:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim Exception As TECH.Exceptions.BaseException = $classmethod(ExceptieType,"%New",Omschrijving)
+	do Exception.VoegToeInnerExceptie($this)
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
 </Class>