Index: TECH/Exceptions/NoException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/NoException.cls.xml	(revision 0)
+++ TECH/Exceptions/NoException.cls.xml	(revision 1455)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Exceptions.NoException">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).GeneralError()
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String="There was no exception."</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit ##super(Omschrijving)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ExceptionHandler.cls.xml
===================================================================
diff -u -r1425 -r1455
--- TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 1425)
+++ TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 1455)
@@ -22,33 +22,28 @@
 <Implementation><![CDATA[
 	#dim Exception As TECH.IException = ""
 	
-	If ('$Data(%Exception)) || ('$IsObject(%Exception))
-	{
-		Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+	If ('$Data(%Exception)) || ('$IsObject(%Exception)){
+		If $ECODE = "" {
+			Set %Exception = ##class(TECH.Exceptions.NoException).%New()
+		} Else {
+			Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
+		}
 	}
 	
-	If ($Data(%Exception) && $IsObject(%Exception))
-	{
-		If ($Data(ExceptionTypes))
-		{
+	If ($Data(%Exception) && $IsObject(%Exception)){
+		If ($Data(ExceptionTypes)){
 			#dim i As %Integer = 0
-			While ((i < ExceptionTypes) && ('%Exception.%Extends(ExceptionTypes(i+1))))
-			{
+			While ((i < ExceptionTypes) && ('%Exception.%Extends(ExceptionTypes(i+1))))	{
 				Set i = i + 1
 			}
-			If (i < ExceptionTypes)
-			{
+			If (i < ExceptionTypes)	{
 				Set Exception = %Exception
 				Set %Exception = ""
 				Set $ECODE = ""
-			}
-			Else
-			{
+			}Else{
 				ZTRAP $ZERROR
 			}
-		}
-		Else
-		{
+		}Else{
 			Set Exception = %Exception
 			Set %Exception = ""
 			Set $ECODE = ""