--- a/smalltalk.rc	Wed Jul 03 00:21:49 1996 +0200
+++ b/smalltalk.rc	Mon Jul 15 17:07:08 1996 +0200
@@ -95,8 +95,8 @@
 anyWrong := false.
 missing := ''.
 (Smalltalk getSystemFileName:'resources/SBrowser.rs') isNil ifTrue:[
-    '***********************************************************************' errorPrintNL.
-    '***** ATTENTION: please check installation of your resource files' errorPrintNL.
+    '***********************************************************************' errorPrintCR.
+    '***** ATTENTION: please check installation of your resource files' errorPrintCR.
     anyWrong := true.
     missing := '''resources'' '.
 ].
@@ -105,37 +105,37 @@
     "/ there may still be a SourceCodeManager ...
     "/
     SourceCodeManager isNil ifTrue:[
-	'***********************************************************************' errorPrintNL.
-	'***** ATTENTION: please check installation of your source files' errorPrintNL.
-	'***** ' errorPrintNL.
-	'***** the browser/debugger may not be able to show sourcecode.' errorPrintNL.
+	'***********************************************************************' errorPrintCR.
+	'***** ATTENTION: please check installation of your source files' errorPrintCR.
+	'***** ' errorPrintCR.
+	'***** the browser/debugger may not be able to show sourcecode.' errorPrintCR.
 	anyWrong := true.
 	missing := missing , '''source'' '.
     ]
 ].
 (Smalltalk getSystemFileName:'bitmaps/SBrowser.xbm') isNil ifTrue:[
-    '***********************************************************************' errorPrintNL.
-    '***** ATTENTION: please check installation of your bitmap files' errorPrintNL.
+    '***********************************************************************' errorPrintCR.
+    '***** ATTENTION: please check installation of your bitmap files' errorPrintCR.
     anyWrong := true.
     missing := missing , '''bitmaps'' '.
 ].
 (Smalltalk getSystemFileName:'resources/normal.style') isNil ifTrue:[
-    '***********************************************************************' errorPrintNL.
-    '***** ATTENTION: please check installation of your style files' errorPrintNL.
+    '***********************************************************************' errorPrintCR.
+    '***** ATTENTION: please check installation of your style files' errorPrintCR.
     anyWrong := true.
     missing := missing , '''resources'' '.
 ].
 
 anyWrong ifTrue:[
-    '*****' errorPrintNL.
-    '***** directory(s) named: ' errorPrint. missing errorPrint. 'incomplete/not existing' errorPrintNL.
+    '*****' errorPrintCR.
+    '***** directory(s) named: ' errorPrint. missing errorPrint. 'incomplete/not existing' errorPrintCR.
     '***** your path is: ' errorPrint.
-    Smalltalk systemPath asArray storeString errorPrintNL.
+    Smalltalk systemPath asArray storeString errorPrintCR.
 
-    '*****' errorPrintNL.
-    '***** Try: "make source bitmaps resources styles"' errorPrintNL.
-    '*****  or: "make symlinks" to fix this.' errorPrintNL.
-    '***********************************************************************' errorPrintNL.
+    '*****' errorPrintCR.
+    '***** Try: "make source bitmaps resources styles"' errorPrintCR.
+    '*****  or: "make symlinks" to fix this.' errorPrintCR.
+    '***********************************************************************' errorPrintCR.
 ]
 !
 
@@ -146,12 +146,12 @@
 "/
 Display isNil ifTrue:[
     DeviceWorkstation notNil ifTrue:[
-	'No Display connection.' errorPrintNL.
+	'No Display connection.' errorPrintCR.
     ] ifFalse:[
-	'Configuration without display.' errorPrintNL.
+	'Configuration without display.' errorPrintCR.
     ].
-    'Textmode (enter smalltalk expressions terminated by single exclamation mark' errorPrintNL.
-    '          CTRL-D to leave line-by-line interpreter.)' errorPrintNL.
+    'Textmode (enter smalltalk expressions terminated by single exclamation mark' errorPrintCR.
+    '          CTRL-D to leave line-by-line interpreter.)' errorPrintCR.
     Smalltalk readEvalPrint.
     Smalltalk exit
 ].
@@ -224,7 +224,7 @@
 "/
 "/ read private (per user) stuff
 "/
-Transcript showCR:'reading private.rc ...'.
+'reading private.rc ...' infoPrintCR.
 Smalltalk fileIn:'private.rc'.
 
 
@@ -236,14 +236,14 @@
 "/
 
 (Smalltalk at:#NewLauncher) notNil ifTrue:[
-    'starting main-menu ...' errorPrintNL.
+    'starting main-menu ...' infoPrintCR.
     (Smalltalk at:#NewLauncher) open
 ] ifFalse:[
     "*
      * start a Transcript (if linked-in)
      *"
     TextCollector notNil ifTrue:[
-	'starting Transcript ...' errorPrintNL.
+	'starting Transcript ...' infoPrintCR.
 	TextCollector newTranscript.
 "/      Transcript lineLimit:2000.
     ].
@@ -252,7 +252,7 @@
      * start the Launcher (if linked-in)
      *"
     (Smalltalk at:#Launcher) notNil ifTrue:[
-	'starting main-menu ...' errorPrintNL.
+	'starting main-menu ...' infoPrintCR.
 	(Smalltalk at:#Launcher) open
     ].
 ].
@@ -284,7 +284,7 @@
 !
 
 "/'st.img' asFilename exists ifFalse:[
-"/    'saving initial image for faster future startup ...' infoPrintNL.
+"/    'saving initial image for faster future startup ...' infoPrintCR.
 "/    ObjectMemory primSnapShotOn:'st.img'
 "/].
 !