--- a/ParseNode.st	Tue Aug 27 10:30:54 2019 +0200
+++ b/ParseNode.st	Tue Aug 27 15:09:23 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -57,6 +55,18 @@
 
 !ParseNode methodsFor:'RBParser compatibility'!
 
+bestNodeFor: anInterval 
+    (self intersectsInterval: anInterval) ifFalse: [^nil].
+    (self containedBy: anInterval) ifTrue: [^self].
+
+    self childrenDo:[:each | 
+        | node |
+        node := each bestNodeFor: anInterval.
+        node notNil ifTrue: [^node]
+    ].
+    ^ nil
+!
+
 children
     |children|