--- a/Method.st	Mon Aug 26 09:28:35 2019 +0200
+++ b/Method.st	Mon Aug 26 09:47:17 2019 +0200
@@ -2904,7 +2904,7 @@
     "evaluate aBlock for each message-selector sent by this method.
      Uses Parser to parse methods source and extract the names."
 
-    ^ self messagesSent do:aBlock
+    self messagesSent do:aBlock
 !
 
 messagesPossiblySent