author | Stefan Vogel <sv@exept.de> |
Thu, 26 Nov 2015 13:56:44 +0100 | |
changeset 3679 | c76366470cc9 |
parent 3677 | b344c261b4ad |
child 3680 | c4db156c1b9d |
child 3681 | 4db107dbec8a |
MessageNode.st | file | annotate | diff | comparison | revisions |
--- a/MessageNode.st Fri Nov 20 20:49:40 2015 +0100 +++ b/MessageNode.st Thu Nov 26 13:56:44 2015 +0100 @@ -707,7 +707,8 @@ ]. (selector = #'on:do:' or:[ selector = #'on:do:ensure:' - or:[ selector = #'on:do:on:do:' ]]) ifTrue:[ + or:[ selector = #'on:do:ifCurtailed:' + or:[ selector = #'on:do:on:do:' ]]]) ifTrue:[ (msg := self checkGlobalFromNameSpaceConflictFor:arg1) notNil ifTrue:[^ msg]. ].