Nice :)
I hope you put this example as comment.

Le 31/8/15 08:37, Marcus Denker a ��crit��:

Hi,

I added a method that returns the sub-tree of the AST that was executed by this context.

(e.g. the message send node of the message that was send that is the reason why we

are now executing thisContext).

e.g.

testSourceNodeExecuted
��������| sourceNode |
��������
��������sourceNode := thisContext sender sender sourceNodeExecuted.
��������self assert: sourceNode selector = #performTest.

AST caching guarantees that this is a true subtree of the method���s AST.

Marcus