Index: TECH/Exceptions/StatusException.cls.xml
===================================================================
diff -u -r1969 -r2081
--- TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 1969)
+++ TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 2081)
@@ -22,9 +22,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefStatus">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $$ParseStatus^vhLib(..Status)
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit " ("_$$ParseStatus^vhLib(..Status)_")"_$C(13,10)_##super()
+<Implementation><![CDATA[	Quit " ("_..GeefStatus()_")"_$C(13,10)_##super()
 ]]></Implementation>
 </Method>
 </Class>