Index: TECH/Exceptions/FileException.cls.xml
===================================================================
diff -u -r2556 -r2639
--- TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 2556)
+++ TECH/Exceptions/FileException.cls.xml	(.../FileException.cls.xml)	(revision 2639)
@@ -28,9 +28,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit " ("_$$ParseStatus^vhLib(..Status)_")"_$C(13,10)_##super()
+<Method name="ToStream">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("("_$$ParseStatus^vhLib(..Status)_")")
+	do Stream.CopyFrom(##super(Prefix))
+	quit Stream
 ]]></Implementation>
 </Method>
 </Class>