Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r976 -r1492
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 976)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1492)
@@ -101,6 +101,7 @@
 	}
 	
 	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$$$TAB_..GeefExceptionCode())
+	Do TekstStream.WriteLine(Prefix_"ErrorKlasse: "_$$$TAB_..%ClassName())
 	Do:$length(..GeefTekstOpLijn()) TekstStream.WriteLine(Prefix_..GeefTekstOpLijn())
 	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$$$TAB_..GeefTijdstip())
 	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)