--- a/host.rc Mon Mar 29 09:27:37 1999 +0200
+++ b/host.rc Mon Mar 29 12:50:15 1999 +0200
@@ -195,7 +195,13 @@
"/ h_<osType>.rc
"/
(Smalltalk at:#'_ImageOSTypeName') ~= sysType ifTrue:[
- ('host.rc [info]: trying host setup h_' , sysType , '.rc ...') infoPrintCR.
+ ('host.rc [info]: ') infoPrint.
+ (Smalltalk getSystemFileName:('h_' , sysType , '.rc')) isNil ifTrue:[
+ 'trying' infoPrint.
+ ] ifFalse:[
+ 'reading' infoPrint.
+ ].
+ (' host setup h_' , sysType , '.rc ...') infoPrintCR.
s := Smalltalk systemFileStreamFor:('h_' , sysType , '.rc').
s notNil ifTrue:[