host.rc
changeset 333 4a6780f29c71
parent 331 a0be330a1f43
child 339 1ec7cd4d30a9
--- 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:[