Index: TECH/Exceptions/NotSupportedException.cls.xml
===================================================================
diff -u -r1461 -r3824
--- TECH/Exceptions/NotSupportedException.cls.xml	(.../NotSupportedException.cls.xml)	(revision 1461)
+++ TECH/Exceptions/NotSupportedException.cls.xml	(.../NotSupportedException.cls.xml)	(revision 3824)
@@ -18,6 +18,15 @@
 <Private>1</Private>
 </Property>
 
+<Method name="Throw">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:TECH.String,Identifier:TECH.String,Opmerking:TECH.String=""</FormalSpec>
+<Implementation><![CDATA[
+	Set Exception = ..%New(.KlasseNaam, .Identifier, .Opmerking)
+	Do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <FormalSpec>KlasseNaam:TECH.String,Identifier:TECH.String,Opmerking:TECH.String=""</FormalSpec>
 <Private>1</Private>