#FEATURE
authorStefan Vogel <sv@exept.de>
Thu, 26 Nov 2015 13:56:44 +0100
changeset 3679 c76366470cc9
parent 3677 b344c261b4ad
child 3680 c4db156c1b9d
child 3681 4db107dbec8a
#FEATURE class: MessageNode changed: #plausibilityCheckIn: take care for: #on:do:ifCurtailed:
MessageNode.st
--- 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].
     ].