Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r2799 -r3168
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 2799)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 3168)
@@ -101,6 +101,7 @@
 <Implementation><![CDATA[
 	#dim TekstStream As %GlobalCharacterStream = ..ToStream(Prefix)
 	Do TekstStream.Rewind()
+	
 	#dim ToString As %String = TekstStream.Read()
 	if (TekstStream.Size) > 32000
 	{
@@ -117,6 +118,8 @@
 	#dim Stream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
 	Do Stream.WriteLine(Prefix_"Omschrijving: "_$$$TAB_..GeefOmschrijving())
 	
+	Do:$$$ISERR($get(%objlasterror)) Stream.WriteLine("objlasterror : "_$$ParseStatus^vhLib(%objlasterror))
+	
 	Do Stream.WriteLine(..GeefStack())
 	
 	if ..ExtraInfo.Size>0 {