--- a/SrcFLoader.st	Mon Jul 03 04:38:59 1995 +0200
+++ b/SrcFLoader.st	Sun Jul 23 04:24:56 1995 +0200
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.4 1995-07-03 02:38:59 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.5 1995-07-23 02:24:40 claus Exp $
 "
 !
 
@@ -82,7 +82,16 @@
      This is sent by the compiler/evaluator if it detects errors."
 
     ^ self
+!
 
+insertAndSelect:aString at:aCharacterPosition
+    "ST-80 compatible error notification during fileIn."
+
+    "
+     will eventually open a TextBox here, showing the error ....
+    "
+    Transcript show:'===>  '; showCr:aString.
+    ^ false
 ! !
 
 !SourceFileLoader methodsFor:'private access'!