Index: TECH/Exceptions/SaveFailedException.cls.xml
===================================================================
diff -u -r2361 -r2641
--- TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 2361)
+++ TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 2641)
@@ -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>