DoWhatIMeanSupport.st
changeset 5609 8a30b1f720d7
parent 5608 585c8f740aea
child 5612 e77a2fa2031f
--- a/DoWhatIMeanSupport.st	Fri Sep 15 14:32:04 2017 +0200
+++ b/DoWhatIMeanSupport.st	Fri Sep 22 18:58:43 2017 +0200
@@ -6170,7 +6170,7 @@
             "/ try there; if found, continue there. If not, well, we might be really at the top.
             rememberedNodes notNil ifTrue:[
                 rememberedNodes do:[:eachPossibleParentNode |
-                    eachPossibleParentNode stop notNil ifTrue:[
+                    (eachPossibleParentNode stop notNil and:[ node start notNil ]) ifTrue:[
                         eachPossibleParentNode stop <= node start ifTrue:[
                             (parentNode isNil or:[parentNode stop < eachPossibleParentNode stop]) ifTrue:[
                                 parentNode := eachPossibleParentNode
@@ -6213,7 +6213,7 @@
     ^ possibleClasses
 
     "Created: / 15-09-2017 / 10:16:20 / cg"
-    "Modified: / 15-09-2017 / 14:31:55 / cg"
+    "Modified: / 22-09-2017 / 13:05:54 / cg"
 !
 
 isNonDestructive:aMessageNode whenSentTo:receiverValue