Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r1492 -r1504
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1492)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 1504)
@@ -215,6 +215,19 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExtraInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ExtraInfo As %String = ""
+	Do ..ExtraInfo.Rewind()
+	While '..ExtraInfo.AtEnd {
+		Set ExtraInfo = ExtraInfo_..ExtraInfo.ReadLine()_$C(13,10)
+	}
+	Do ..ExtraInfo.Rewind()
+	Quit ExtraInfo
+]]></Implementation>
+</Method>
 </Class>