Index: TECH/Exceptions/TemplateBaseException.cls.xml
===================================================================
diff -u -r2278 -r2642
--- TECH/Exceptions/TemplateBaseException.cls.xml	(.../TemplateBaseException.cls.xml)	(revision 2278)
+++ TECH/Exceptions/TemplateBaseException.cls.xml	(.../TemplateBaseException.cls.xml)	(revision 2642)
@@ -56,15 +56,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
+<Method name="ToStream">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
+	Set Stream = ##class(%GlobalCharacterStream).%New()
+	
 	Set Result = ##class(%ListOfDataTypes).%New()
 	#dim Item As %Integer = 0
 	For Item=1:1:..ObjectList.Count() {
 		Do Result.Insert(..ObjectList.GetAt(Item).ToString())
 	}
-	Quit ##class(TECH.ListUtils).ListToPieces(Result,",")
+	
+	Do Stream.Write(##class(TECH.ListUtils).ListToPieces(Result,","))
+	
+	Quit Stream
 ]]></Implementation>
 </Method>
 
Index: TECH/Exceptions/StatusException.cls.xml
===================================================================
diff -u -r2404 -r2642
--- TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 2404)
+++ TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 2642)
@@ -28,9 +28,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit " ("_..GeefStatus()_")"_$C(13,10)_##super()
+<Method name="ToStream">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("("_..GeefStatus()_")")
+	do Stream.CopyFrom(##super(Prefix))
+	quit Stream
 ]]></Implementation>
 </Method>