--- a/smalltalk.rc	Thu Jan 09 19:08:04 1997 +0100
+++ b/smalltalk.rc	Fri Jan 10 19:34:12 1997 +0100
@@ -48,17 +48,17 @@
 args := Smalltalk commandLineArguments.
 ((args size > 0) and:[args last = '--buildClasses']) ifTrue:[
     'binary' asFilename isDirectory ifFalse:[
-	'no binary directory for classes.' printNL.
+	'smalltalk.rc [warning]: no binary directory for classes.' errorPrintCR.
     ] ifTrue:[
 	"/
 	"/ load all lazy classes
 	"/
 	Autoload subclasses do:[:aClass |
 	    Autoload autoloadFailedSignal handle:[:ex |
-		'autoload failed' printNL.
+		'smalltalk.rc [warning]: autoload failed' errorPrintCR.
 		ex return.
 	    ] do:[
-		'loading ' print. aClass name print. ' ...' printNL.
+		'smalltalk.rc [info]: loading ' infoPrint. aClass name infoPrint. ' ...' infoPrintCR.
 		aClass autoload.
 	    ]
 	].
@@ -67,7 +67,7 @@
 	"/ binary save all classes
 	"/
 	Autoload loadedClasses do:[:cls |
-	    'saving binary of ' print. cls name print. ' ...' printNL.
+	    'smalltalk.rc [info]: saving binary of ' infoPrint. cls name infoPrint. ' ...' infoPrintCR.
 	    cls binaryFileOut.
 	    OperatingSystem executeCommand:'mv *.cls binary'.
 	]
@@ -146,9 +146,9 @@
 "/
 Display isNil ifTrue:[
     DeviceWorkstation notNil ifTrue:[
-	'smalltalk.rc: No Display connection.' errorPrintCR.
+	'smalltalk.rc [warning]: No Display connection.' errorPrintCR.
     ] ifFalse:[
-	'smalltalk.rc: Configuration without display.' errorPrintCR.
+	'smalltalk.rc [warning]: Configuration without display.' errorPrintCR.
     ].
     '' errorPrintCR.
     'Textmode (enter smalltalk expressions terminated by single exclamation mark' errorPrintCR.
@@ -216,11 +216,13 @@
 "/ this handles all variant display stuff
 "/ (i.e. things which might change, when DISPLAY is set different)
 "/
+"/ 'smalltalk.rc [info]: reading ''display.rc'' ...' infoPrintCR.
 Smalltalk fileIn:'display.rc'.
 
 "/
 "/ this defines stuff relating to the host we are running on
 "/
+"/ 'smalltalk.rc [info]: reading ''host.rc'' ...' infoPrintCR.
 Smalltalk fileIn:'host.rc'.
 
 "/
@@ -243,12 +245,13 @@
 "/
 "/ read private (per user) stuff
 "/
-'reading private.rc ...' infoPrintCR.
+'smalltalk.rc [info]: reading ''private.rc'' ...' infoPrintCR.
 Smalltalk fileIn:'private.rc'.
 
 "/
 "/ read saved configuration settings (if any)
 "/
+"/ 'smalltalk.rc [info]: reading ''settings.stx'' ...' infoPrintCR.
 Smalltalk fileIn:'settings.stx'.
 
 "/
@@ -271,7 +274,9 @@
 "/
 
 "/'st.img' asFilename exists ifFalse:[
-"/    'SMALLTALK: saving initial image for faster future startup ...' infoPrintCR.
-"/    ObjectMemory primSnapShotOn:'st.img'
+"/    'smalltalk.rc [info]: saving initial image for faster future startup ...' infoPrintCR.
+"/    Smalltalk addStartBlock:[
+"/        ObjectMemory primSnapShotOn:'st.img'
+"/    ]
 "/].
 !