Index: vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml
===================================================================
diff -u -r1481 -r1493
--- vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1481)
+++ vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1493)
@@ -12,10 +12,12 @@
 	#dim VerwachteString As %String
 	Set VerwachteString = "Omschrijving: 	NIET VAN TOEPASSING"_$$$CRLF_
 								"ErrorCode: 	"_##class(TECH.enu.ExceptionCode).GeneralError()_$$$CRLF_
+								"ErrorKlasse: 	GeneralErrorException"_$$$CRLF_
 								"Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF_
 								"InnerExceptie 1:"_$$$CRLF_
 								"***Omschrijving: 	ExceptieString"_$$$CRLF_
 								"***ErrorCode: 	"_##class(TECH.enu.ExceptionCode).GeneralError()_$$$CRLF_
+								"***ErrorKlasse: 	BaseException"_$$$CRLF_
 								"***Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
 
 	do ..AssertException(..GeefExceptieString(Exception),VerwachteString)
@@ -106,12 +108,14 @@
 	#dim Resultaat As %String
 	Set Resultaat = "Omschrijving: 	NIET VAN TOEPASSING"_$$$CRLF_
 						"ErrorCode: 	"_##class(TECH.enu.ExceptionCode).GeneralError()_$$$CRLF_
+						"ErrorKlasse: 	GeneralErrorException"_$$$CRLF_
 						"Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
 	#dim i As %Integer
 	For i=1:1:Aantal {
 		Set Resultaat = Resultaat _ "InnerExceptie "_i_":"_$$$CRLF_
 								"***Omschrijving: 	InnerExceptieString"_i_$$$CRLF_
 								"***ErrorCode: 	"_##class(TECH.enu.ExceptionCode).GeneralError()_$$$CRLF_
+								"***ErrorKlasse: 	BaseException"_$$$CRLF_
 								"***Tijdstip: 	2011-06-30 09:15:00"_$$$CRLF
 	}
 	Quit Resultaat