Index: TECH/ExceptionHandler.cls.xml
===================================================================
diff -u -r1133 -r1931
--- TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 1133)
+++ TECH/ExceptionHandler.cls.xml	(.../ExceptionHandler.cls.xml)	(revision 1931)
@@ -10,6 +10,7 @@
 <FormalSpec>Exception:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
 	Set %Exception = Exception
+	Set Omschrijving = %Exception.GeefOmschrijving()	
 	Set $ECODE = "`"_Exception.GeefExceptionCode()_"`"_Exception.GeefOmschrijving()_"`"
 ]]></Implementation>
 </Method>
@@ -23,6 +24,7 @@
 	
 	If ('$Data(%Exception)) || ('$IsObject(%Exception))
 	{
+		d WLIP^vhDBG(127,"Undefined : "_$ECODE_$ZERROR)
 		Set %Exception = ##class(TECH.Exceptions.RuntimeException).%New($ECODE,$ZERROR)
 	}