Index: TECH/System/impl/SystemAPI.cls.xml
===================================================================
diff -u -r1069 -r1984
--- TECH/System/impl/SystemAPI.cls.xml	(.../SystemAPI.cls.xml)	(revision 1069)
+++ TECH/System/impl/SystemAPI.cls.xml	(.../SystemAPI.cls.xml)	(revision 1984)
@@ -8,6 +8,18 @@
 <Implementation><![CDATA[	Quit $$$Server
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStackTrace">
+<FormalSpec>From:%Integer=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Txt As %String = ""
+	For i=From:1:$ESTACK { 
+		Set Txt=Txt_$$$CRLF_i_"   "_$STACK($STACK-i)_" : "_$STACK($STACK-i,"PLACE")_" -> "_$STACK($STACK-i,"MCODE")
+	}
+	Quit Txt
+]]></Implementation>
+</Method>
 </Class>