--- a/Stream.st	Thu Oct 15 12:43:37 1998 +0200
+++ b/Stream.st	Thu Oct 15 13:12:05 1998 +0200
@@ -13,7 +13,7 @@
 Object subclass:#Stream
 	instanceVariableNames:'signalAtEnd'
 	classVariableNames:'StreamErrorSignal PositionErrorSignal ReadErrorSignal
-		WriteErrorSignal EndOfStreamSignal'
+		WriteErrorSignal EndOfStreamSignal LineTooLongErrorSignal'
 	poolDictionaries:''
 	category:'Streams'
 !
@@ -107,13 +107,17 @@
         WriteErrorSignal nameClass:self message:#writeErrorSignal.
         WriteErrorSignal notifierString:'write error'.
 
+        LineTooLongErrorSignal := ReadErrorSignal newSignalMayProceed:false.
+        LineTooLongErrorSignal nameClass:self message:#lineTooLongErrorSignal.
+        LineTooLongErrorSignal notifierString:'line too long'.
+
         EndOfStreamSignal := QuerySignal new.
         EndOfStreamSignal parent:StreamErrorSignal.
         EndOfStreamSignal nameClass:self message:#endOfStreamSignal.
         EndOfStreamSignal notifierString:'end of stream'.
     ]
 
-    "Modified: / 16.6.1998 / 16:47:03 / cg"
+    "Modified: / 15.10.1998 / 12:11:45 / cg"
 ! !
 
 !Stream class methodsFor:'instance creation'!
@@ -134,6 +138,14 @@
     ^ EndOfStreamSignal
 !
 
+lineTooLongErrorSignal
+    "return the signal raised if a line is read which is too long (>32k)"
+
+    ^ LineTooLongErrorSignal
+
+    "Created: / 15.10.1998 / 12:11:14 / cg"
+!
+
 positionErrorSignal
     "return the signal raised if positioning is requested for
      a stream which does not support that kind of operation"
@@ -2096,6 +2108,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.80 1998-06-16 14:48:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.81 1998-10-15 11:12:05 cg Exp $'
 ! !
 Stream initialize!