--- a/Parser.st	Tue Jul 24 18:53:48 2001 +0200
+++ b/Parser.st	Tue Jul 24 19:17:38 2001 +0200
@@ -3008,7 +3008,7 @@
         (requestor isNil or:[requestor isStream]) ifTrue:[
             self showErrorMessage:('Warning: ', s contents) position:nil.
         ] ifFalse:[
-            self warn:s contents.
+            requestor warning:s contents position:1 to:1 from:self.
         ].
     ].
 ! !
@@ -5832,6 +5832,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.286 2001-07-24 08:10:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.287 2001-07-24 17:17:38 stefan Exp $'
 ! !
 Parser initialize!