--- a/WrappedMethod.st	Tue Jul 09 15:23:29 2019 +0200
+++ b/WrappedMethod.st	Tue Jul 09 20:08:40 2019 +0200
@@ -467,7 +467,10 @@
 !
 
 messagesSent
-    "return a collection of message selectors sent by this method"
+    "return a set-like collection with the message selectors sent by the receiver.
+     Uses Parser to parse methods source and extract the names.
+     The returned collection includes all used message selectors 
+     (i.e. including super-send messages)"
 
     ^ self originalMethod messagesSent 
 !