ListView.st
changeset 6248 74cd4f46a0d8
parent 6239 f8540a4fde9e
child 6252 65a7558ccddf
--- a/ListView.st	Mon Jan 01 10:59:34 2018 +0100
+++ b/ListView.st	Mon Jan 01 11:07:39 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -866,7 +868,7 @@
      for non-text lists, the item is returned."
 
     list isNil ifTrue:[^ nil].
-    (lineNr between:1 and:self size) ifFalse:[^ nil].
+    (lineNr between:1 and:list size) ifFalse:[^ nil].
     ^ list at:lineNr
 
     "Modified (comment): / 18-07-2017 / 13:35:26 / cg"