--- a/ExternalStream.st	Thu Mar 04 17:39:05 2004 +0100
+++ b/ExternalStream.st	Thu Mar 04 17:39:38 2004 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1498,46 +1500,47 @@
 
 initialize
     OpenErrorSignal isNil ifTrue:[
-	OpenErrorSignal := StreamErrorSignal newSignalMayProceed:true.
-	OpenErrorSignal nameClass:self message:#openErrorSignal.
-	OpenErrorSignal notifierString:'open error'.
-
-	InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
-	InvalidReadSignal nameClass:self message:#invalidReadSignal.
-	InvalidReadSignal notifierString:'read error'.
-
-	InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
-	InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
-	InvalidWriteSignal notifierString:'write error'.
-
-	InvalidModeSignal :=  StreamErrorSignal newSignalMayProceed:false.
-	InvalidModeSignal nameClass:self message:#invalidModeSignal.
-	InvalidModeSignal notifierString:'binary/text mode mismatch'.
-
-	InvalidOperationSignal :=  StreamErrorSignal newSignalMayProceed:false.
-	InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
-	InvalidOperationSignal notifierString:'unsupported file operation'.
-
-	StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
-	StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
-	StreamNotOpenSignal notifierString:'stream is not open'.
-
-	StreamIOErrorSignal := StreamErrorSignal newSignalMayProceed:false.
-	StreamIOErrorSignal nameClass:self message:#streamIOErrorSignal.
-	StreamIOErrorSignal notifierString:'I/O error'.
+"/        OpenErrorSignal := OpenError.
+"/        OpenErrorSignal nameClass:self message:#openErrorSignal.
+        OpenErrorSignal := OpenError.
+        OpenErrorSignal notifierString:'open error'.
+
+        InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
+        InvalidReadSignal nameClass:self message:#invalidReadSignal.
+        InvalidReadSignal notifierString:'read error'.
+
+        InvalidWriteSignal := WriteErrorSignal newSignalMayProceed:false.
+        InvalidWriteSignal nameClass:self message:#invalidWriteSignal.
+        InvalidWriteSignal notifierString:'write error'.
+
+        InvalidModeSignal :=  StreamErrorSignal newSignalMayProceed:false.
+        InvalidModeSignal nameClass:self message:#invalidModeSignal.
+        InvalidModeSignal notifierString:'binary/text mode mismatch'.
+
+        InvalidOperationSignal :=  StreamErrorSignal newSignalMayProceed:false.
+        InvalidOperationSignal nameClass:self message:#invalidOperationSignal.
+        InvalidOperationSignal notifierString:'unsupported file operation'.
+
+        StreamNotOpenSignal := StreamErrorSignal newSignalMayProceed:false.
+        StreamNotOpenSignal nameClass:self message:#streamNotOpenSignal.
+        StreamNotOpenSignal notifierString:'stream is not open'.
+
+        StreamIOErrorSignal := StreamErrorSignal newSignalMayProceed:false.
+        StreamIOErrorSignal nameClass:self message:#streamIOErrorSignal.
+        StreamIOErrorSignal notifierString:'I/O error'.
     ].
 
     Lobby isNil ifTrue:[
-	Lobby := Registry new.
-
-	"want to get informed when returning from snapshot"
-	ObjectMemory addDependent:self
+        Lobby := Registry new.
+
+        "want to get informed when returning from snapshot"
+        ObjectMemory addDependent:self
     ].
     DefaultEOLMode isNil ifTrue:[
-	self initDefaultEOLMode.
+        self initDefaultEOLMode.
     ].
     ReadMode isNil ifTrue:[
-	self initModeStrings.
+        self initModeStrings.
     ].
     "Modified: / 21.5.1998 / 16:33:53 / cg"
 !
@@ -5886,7 +5889,7 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.273 2004-02-27 17:05:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.274 2004-03-04 16:39:38 cg Exp $'
 ! !
 
 ExternalStream initialize!