--- a/ExtStream.st	Tue Aug 22 15:31:49 1995 +0200
+++ b/ExtStream.st	Wed Aug 23 19:50:59 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.46 1995-08-11 03:00:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.47 1995-08-23 17:49:19 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -86,7 +86,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.46 1995-08-11 03:00:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.47 1995-08-23 17:49:19 claus Exp $
 "
 !
 
@@ -681,9 +681,10 @@
     text := StringCollection new.
     [self atEnd] whileFalse:[
 	l := self nextLine.
-	l notNil ifTrue:[
-	    text add:l
-	]
+	l isNil ifTrue:[
+	    ^ text
+	].
+	text add:l
     ].
     ^ text
 ! !