--- 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!