--- a/Parser.st	Wed Jul 25 16:01:27 2001 +0200
+++ b/Parser.st	Sun Jul 29 12:29:18 2001 +0200
@@ -3008,7 +3008,8 @@
         (requestor isNil or:[requestor isStream]) ifTrue:[
             self showErrorMessage:('Warning: ', s contents) position:nil.
         ] ifFalse:[
-            requestor warning:s contents position:1 to:1 from:self.
+
+            requestor warning:s contents position:(localVarDefPosition first) to:(localVarDefPosition last) from:self.
         ].
     ].
 ! !
@@ -5832,6 +5833,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.287 2001-07-24 17:17:38 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.288 2001-07-29 10:29:18 cg Exp $'
 ! !
 Parser initialize!