--- a/Stream.st	Tue Jun 16 16:23:52 1998 +0200
+++ b/Stream.st	Tue Jun 16 16:48:44 1998 +0200
@@ -107,12 +107,13 @@
         WriteErrorSignal nameClass:self message:#writeErrorSignal.
         WriteErrorSignal notifierString:'write error'.
 
-        EndOfStreamSignal := StreamErrorSignal newSignalMayProceed:true.
+        EndOfStreamSignal := QuerySignal new.
+        EndOfStreamSignal parent:StreamErrorSignal.
         EndOfStreamSignal nameClass:self message:#endOfStreamSignal.
         EndOfStreamSignal notifierString:'end of stream'.
     ]
 
-    "Modified: / 16.6.1998 / 15:49:27 / cg"
+    "Modified: / 16.6.1998 / 16:47:03 / cg"
 ! !
 
 !Stream class methodsFor:'instance creation'!
@@ -2095,6 +2096,6 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.79 1998-06-16 14:05:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.80 1998-06-16 14:48:44 cg Exp $'
 ! !
 Stream initialize!