Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r832 -r896
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 832)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 896)
@@ -37,6 +37,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ExtraInfo">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -86,10 +91,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim TekstStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
-	Do TekstStream.WriteLine(Prefix_"Omschrijving: "_$C(9)_..GeefOmschrijving())
-	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$C(9)_..GeefExceptionCode())
+	Do TekstStream.WriteLine(Prefix_"Omschrijving: "_$$$TAB_..GeefOmschrijving())
+	Do:..ExtraInfo.Count()>0 TekstStream.WriteLine(Prefix_"Extra info:"_$$$TAB_##class(TECH.ListUtils).ListToPieces(..ExtraInfo,$$$CRLF))
+	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$$$TAB_..GeefExceptionCode())
 	Do:$length(..GeefTekstOpLijn()) TekstStream.WriteLine(Prefix_..GeefTekstOpLijn())
-	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$C(9)_..GeefTijdstip())
+	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$$$TAB_..GeefTijdstip())
 	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
 	While ErrorListIterator.HasNext() {
 		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
@@ -190,6 +196,12 @@
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="VoegToeExtraInfo">
+<FormalSpec>ExtraInfo:%String=""</FormalSpec>
+<Implementation><![CDATA[	do ..ExtraInfo.Insert(ExtraInfo)
+]]></Implementation>
+</Method>
 </Class>