--- a/smalltalk.rc	Wed Aug 20 20:32:03 1997 +0200
+++ b/smalltalk.rc	Sat Sep 06 19:55:02 1997 +0200
@@ -100,6 +100,7 @@
 (Smalltalk getSystemFileName:'resources/SBrowser.rs') isNil ifTrue:[
     '***********************************************************************' errorPrintCR.
     '***** ATTENTION: please check installation of your resource files' errorPrintCR.
+    '***** I will not be able to give non-english messages' errorPrintCR.
     anyWrong := true.
     missing := '''resources'' '.
 ].
@@ -125,6 +126,7 @@
 (Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[
     '***********************************************************************' errorPrintCR.
     '***** ATTENTION: please check installation of your style files' errorPrintCR.
+    '***** I will use a plain b&w viewStyle as a fallBack' errorPrintCR.
     anyWrong := true.
     missing := missing , '''resources'' '.
 ].
@@ -241,6 +243,8 @@
 "/ (it will not be shown when coming up via a snapshot image)
 
 Smalltalk addStartBlock:[
+    'smalltalk.rc [info]: show licence conditions ...' infoPrintCR.
+
 "/    MessageTally spyOn:[
 "/    Class withoutUpdatingChangesDo:[   
 "/        'patches [info]: installing autoloaded classes ...' infoPrintCR.
@@ -295,18 +299,18 @@
 "/     doneWithStartupStuff := Semaphore new.
 "/ 
 "/     Smalltalk addStartBlock:[
-"/ 	[
-"/ 	    doneWithStartupStuff wait.
+"/      [
+"/          doneWithStartupStuff wait.
 "/             'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
 "/             ObjectMemory primSnapShotOn:'st.img'
-"/ 	] forkAt:1
+"/      ] forkAt:1
 "/     ].
 "/ 
 "/     Smalltalk addStartBlock:[
-"/ 	[
-"/ 	    Delay waitForSeconds:10.
-"/ 	    doneWithStartupStuff signal
-"/ 	] forkAt:1
+"/      [
+"/          Delay waitForSeconds:10.
+"/          doneWithStartupStuff signal
+"/      ] forkAt:1
 "/     ].
 "/ ].
 !