--- a/Stream.st	Tue May 19 17:25:43 1998 +0200
+++ b/Stream.st	Tue May 19 17:26:48 1998 +0200
@@ -1618,10 +1618,12 @@
      character (i.e. read a single line of text).
      Added for protocol compatibility with externalStreams."
 
-    self atEnd ifTrue:[^ nil].
+    self atEnd ifTrue:[
+        ^ self pastEnd
+    ].
     ^ self upTo:Character cr.
 
-    "Modified: / 19.5.1998 / 17:02:39 / cg"
+    "Modified: / 19.5.1998 / 17:26:25 / cg"
 !
 
 nextWord
@@ -1935,6 +1937,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.74 1998-05-19 15:25:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.75 1998-05-19 15:26:48 cg Exp $'
 ! !
 Stream initialize!