--- a/Scanner.st	Sun Apr 02 13:09:33 1995 +0200
+++ b/Scanner.st	Tue Apr 11 17:30:32 1995 +0200
@@ -33,7 +33,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.24 1995-03-31 02:53:57 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.25 1995-04-11 15:30:25 claus Exp $
 '!
 
 !Scanner class methodsFor:'documentation'!
@@ -54,7 +54,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.24 1995-03-31 02:53:57 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.25 1995-04-11 15:30:25 claus Exp $
 "
 !
 
@@ -396,7 +396,7 @@
 	    self showErrorMessage:aMessage position:position.
 	    ^ false
 	].
-	^ requestor error:aMessage position:position to:endPos
+	^ requestor error:aMessage position:position to:endPos from:self 
     ].
     ^ false
 !
@@ -411,7 +411,7 @@
 	    self showErrorMessage:aMessage position:position.
 	    ^ false
 	].
-	^ requestor warning:aMessage position:position to:endPos
+	^ requestor warning:aMessage position:position to:endPos from:self
     ].
     ^ false
 !