--- a/FileText.st	Wed Jun 15 11:36:01 2016 +0200
+++ b/FileText.st	Mon Jun 27 17:26:27 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -9,6 +11,9 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libbasic2' }"
+
+"{ NameSpace: Smalltalk }"
 
 StringCollection subclass:#FileText
 	instanceVariableNames:'myStream lastLineKnown lastLineOfFile cachedLines cacheLineNr'
@@ -95,7 +100,7 @@
     ].
 
     entry := super at:index.
-    (entry isMemberOf:String) ifTrue:[^ entry].
+    entry isSingleByteString ifTrue:[^ entry].
 
     cachedLines isNil ifTrue:[
         cachedLines := Array new:50.
@@ -206,5 +211,6 @@
 !FileText class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.17 1996-04-27 11:34:27 cg Exp $'
+    ^ '$Header$'
 ! !
+