--- a/CustomContext.st	Fri Nov 14 20:15:29 2014 +0100
+++ b/CustomContext.st	Fri Nov 14 20:30:54 2014 +0100
@@ -101,6 +101,15 @@
     "Ceated: / 14-11-2014 / 19:26:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 
     "Created: / 14-11-2014 / 19:26:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+asRBMethod: aMethod
+    | rbClass |
+
+    rbClass := self asRBClass: aMethod mclass.
+    ^ rbClass methodFor: aMethod selector
+
+    "Created: / 14-11-2014 / 20:17:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CustomContext methodsFor:'testing'!