Index: TECH/Exceptions/RuntimeException.cls.xml
===================================================================
diff -u -r2405 -r2640
--- TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 2405)
+++ TECH/Exceptions/RuntimeException.cls.xml	(.../RuntimeException.cls.xml)	(revision 2640)
@@ -42,12 +42,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
+<Method name="ToStream">
+<FormalSpec>Prefix:%String</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	Set Tekst = "[ ZERROR: "_..ZError_" ] [ ECODE: "_..ECode_" ]"
-	Set Tekst = Tekst_$C(13,10)_##super()
-	Quit Tekst
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("[ ZERROR: "_..ZError_" ] [ ECODE: "_..ECode_" ]")
+	do Stream.CopyFrom(##super(Prefix))
+	Quit Stream
 ]]></Implementation>
 </Method>