PositionableStream.st
changeset 875 2bb6fea4cb55
parent 759 908363ce8a32
child 973 5bb2473bf1ef
--- a/PositionableStream.st	Wed Jan 17 12:46:35 1996 +0100
+++ b/PositionableStream.st	Wed Jan 17 13:27:58 1996 +0100
@@ -301,9 +301,17 @@
      occurs while filing in"
 
     Smalltalk isInitialized ifFalse:[
-	'error during startup: ' errorPrint. message errorPrintNL.
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
 	^ #debug
     ].
+    "/
+    "/ are we in the startup sequence of an image restart ?
+    "/
+    Processor activeProcessIsSystemProcess ifTrue:[
+	'fileIn error during startup: ' errorPrint. message errorPrintNL.
+	^ #continue
+    ].
+
     ^ OptionBox 
 	  request:message 
 	  label:'Error in fileIn'
@@ -547,6 +555,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.37 1995-12-15 12:47:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.38 1996-01-17 12:27:58 cg Exp $'
 ! !
 PositionableStream initialize!