Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r1485 -r1717
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1485)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1717)
@@ -554,6 +554,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetCurrentMethod">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit i%TheStack(i%TheStack,"method")
+]]></Implementation>
+</Method>
+
 <Method name="GetGlobalForLogging">
 <Abstract>1</Abstract>
 <ClassMethod>1</ClassMethod>