Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r896 -r904
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 896)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 904)
@@ -38,8 +38,7 @@
 </Property>
 
 <Property name="ExtraInfo">
-<Type>%String</Type>
-<Collection>list</Collection>
+<Type>%GlobalCharacterStream</Type>
 </Property>
 
 <Method name="%OnNew">
@@ -92,7 +91,12 @@
 <Implementation><![CDATA[
 	#dim TekstStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
 	Do TekstStream.WriteLine(Prefix_"Omschrijving: "_$$$TAB_..GeefOmschrijving())
-	Do:..ExtraInfo.Count()>0 TekstStream.WriteLine(Prefix_"Extra info:"_$$$TAB_##class(TECH.ListUtils).ListToPieces(..ExtraInfo,$$$CRLF))
+	
+	if ..ExtraInfo.Size>0 {
+		do TekstStream.WriteLine(Prefix_"Extra info:"_$$$CRLF)
+		do TekstStream.CopyFrom(..ExtraInfo)	
+	}
+	
 	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$$$TAB_..GeefExceptionCode())
 	Do:$length(..GeefTekstOpLijn()) TekstStream.WriteLine(Prefix_..GeefTekstOpLijn())
 	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$$$TAB_..GeefTijdstip())
@@ -198,8 +202,13 @@
 </Method>
 
 <Method name="VoegToeExtraInfo">
-<FormalSpec>ExtraInfo:%String=""</FormalSpec>
-<Implementation><![CDATA[	do ..ExtraInfo.Insert(ExtraInfo)
+<FormalSpec>ExtraInfo:%CacheString=""</FormalSpec>
+<Implementation><![CDATA[
+	if $IsObject(ExtraInfo) {
+		do ..ExtraInfo.CopyFrom(ExtraInfo)
+	} else {
+		do ..ExtraInfo.WriteLine(ExtraInfo)
+	}
 ]]></Implementation>
 </Method>
 </Class>