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>