--- a/SrcFLoader.st	Sat May 18 16:11:53 1996 +0200
+++ b/SrcFLoader.st	Sat May 18 16:16:13 1996 +0200
@@ -85,8 +85,10 @@
     "error notification during fileIn.
      This is sent by the compiler/evaluator if it detects errors."
 
-    Transcript show:'**  '; showCr:aMessage.
+    Transcript show:'**  '; showCR:aMessage.
     ^ false
+
+    "Modified: 18.5.1996 / 15:44:50 / cg"
 !
 
 error:aMessage position:position to:endPos from:aCompiler
@@ -98,15 +100,17 @@
     "
      will eventually open a TextBox here, showing the error ....
     "
-    Transcript show:'===>  '; showCr:aMessage.
+    Transcript show:'===>  '; showCR:aMessage.
     (cls := aCompiler targetClass) notNil ifTrue:[
         Transcript show:'      when compiling '; show:cls name.
-	(sel := aCompiler selector) notNil ifTrue:[
+        (sel := aCompiler selector) notNil ifTrue:[
             Transcript show:'>>'; show:sel.
-	].
-	Transcript cr.
+        ].
+        Transcript cr.
     ].
     ^ false
+
+    "Modified: 18.5.1996 / 15:44:52 / cg"
 !
 
 insertAndSelect:aString at:aCharacterPosition
@@ -115,8 +119,10 @@
     "
      will eventually open a TextBox here, showing the error ....
     "
-    Transcript show:'===>  '; showCr:aString.
+    Transcript show:'===>  '; showCR:aString.
     ^ false
+
+    "Modified: 18.5.1996 / 15:44:54 / cg"
 !
 
 warning:aMessage position:position to:endPos from:aCompiler
@@ -136,5 +142,5 @@
 !SourceFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.12 1996-04-25 17:06:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.13 1996-05-18 14:16:13 cg Exp $'
 ! !