--- a/host.rc	Tue Aug 09 00:33:56 1994 +0200
+++ b/host.rc	Tue Aug 09 00:35:25 1994 +0200
@@ -1,21 +1,32 @@
 "*
  * $Header$
+ *
+ * DONT add site specific things here - use your own h_xxx.rc file instead
+ *
  * startup configuration for host specific stuff -
  * looks for a host specific init file and loads it.
  *"
 
 |host s|
 
+(OperatingSystem getSystemType = 'hpux') ifTrue:[
+    OperatingSystem disableSignal:(OperatingSystem sigALRM)
+].
+
 host := OperatingSystem getHostName.
 host isNil ifTrue:[
-    'cannot determine host I am running on' printNewline.
+    'cannot determine host I am running on' errorPrintNewline.
 ] ifFalse:[
     "if there is a corresponding file ..."
-    ('reading host setup h_' , host , '.rc ...') printNewline.
-    s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
-    s notNil ifTrue:[
-        s fileIn.
-        s close.
+    (Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
+        ('trying host setup h_' , host , '.rc ...') errorPrintNewline.
+
+        s := Smalltalk systemFileStreamFor:('h_' , host , '.rc').
+        s notNil ifTrue:[
+            s fileIn.
+            s close.
+        ].
+        Smalltalk at:#'_ImageHostName' put:host.
     ]
 ].
 !