author | Claus Gittinger <cg@exept.de> |
Mon, 26 Aug 2019 09:47:17 +0200 | |
changeset 24623 | ee7195e86e1f |
parent 24622 | 031078d2cdba |
child 24624 | d43c1cf3a830 |
--- 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