--- a/ExternalStream.st	Fri Jan 10 18:58:00 1997 +0100
+++ b/ExternalStream.st	Fri Jan 10 19:01:32 1997 +0100
@@ -11,13 +11,13 @@
 "
 
 ReadWriteStream subclass:#ExternalStream
-        instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
-                lastErrorNumber readAhead'
-        classVariableNames:'Lobby LastErrorNumber InvalidReadSignal InvalidWriteSignal
-                InvalidModeSignal OpenErrorSignal StreamNotOpenSignal
-                InvalidOperationSignal'
-        poolDictionaries:''
-        category:'Streams-External'
+	instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
+		lastErrorNumber readAhead'
+	classVariableNames:'Lobby LastErrorNumber InvalidReadSignal InvalidWriteSignal
+		InvalidModeSignal OpenErrorSignal StreamNotOpenSignal
+		InvalidOperationSignal'
+	poolDictionaries:''
+	category:'Streams-External'
 !
 
 !ExternalStream primitiveDefinitions!
@@ -2277,9 +2277,11 @@
     "sent after snapin to reopen streams.
      cannot reopen here since I am abstract and have no device knowledge"
 
-    self class name errorPrint. ': cannot reOpen stream - stream closed' errorPrintNL.
+    self class name errorPrint. ' [warning]: automatic reOpen not supported - stream closed' errorPrintCR.
     filePointer := nil.
     Lobby unregister:self.
+
+    "Modified: 10.1.1997 / 17:50:44 / cg"
 !
 
 setLastError:aNumber
@@ -3565,6 +3567,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.115 1997-01-10 13:18:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.116 1997-01-10 18:01:32 cg Exp $'
 ! !
 ExternalStream initialize!