--- a/SelectionInListView.st	Tue Jan 16 22:13:41 2018 +0100
+++ b/SelectionInListView.st	Tue Jan 16 22:13:42 2018 +0100
@@ -2820,21 +2820,21 @@
 
 !SelectionInListView methodsFor:'help'!
 
-flyByHelpTextAt:aPoint
+helpTextAt:aPoint
     "ask the line for its help text"
      
     |lineNr|
 
     lineNr := self lineAtY:aPoint y.
     lineNr notNil ifTrue:[
-        ^ self flyByHelpTextForLine:lineNr
+        ^ self helpTextForLine:lineNr
     ].
     ^ nil
 
     "Modified (comment): / 18-07-2017 / 13:32:04 / cg"
 !
 
-flyByHelpTextForLine:lineNr
+helpTextForLine:lineNr
     "the fallback here is to ask the item if it is not a string,
      otherwise, return the full label string
      for lines which are clipped (longer than the view's width)"
@@ -2843,7 +2843,7 @@
 
     item := self at:lineNr.
     item isString ifFalse:[
-        text := item perform:#flyByHelpText ifNotUnderstood:nil.
+        text := item perform:#helpText ifNotUnderstood:nil.
         text notNil ifTrue:[
             ^ text
         ].