--- a/Parser.st	Fri May 19 00:57:15 1995 +0200
+++ b/Parser.st	Fri May 19 01:26:59 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
 "
 !
 
@@ -1162,7 +1162,7 @@
     |m|
 
     errorFlag := true.
-    m := ' Error: ' , aMessage.
+    m := 'Error: ' , aMessage.
     self notifyError:m position:position to:endPos.
     exitBlock notNil ifTrue:[exitBlock value].
     ^ false
@@ -1226,7 +1226,7 @@
 	 it is supposed to raise abort or return true/false.
 	 True return means that correction is wanted.
 	"
-	doCorrect := self correctableError:('Error: ' , aName , ' is undefined') position:pos1 to:pos2
+	doCorrect := self correctableError:('Warning: ' , aName , ' is undefined') position:pos1 to:pos2
     ].
 
     doCorrect ifFalse:[