--- a/Parser.st	Tue Feb 07 22:23:40 2012 +0100
+++ b/Parser.st	Mon Feb 13 10:52:22 2012 +0100
@@ -5280,7 +5280,7 @@
                 ]
             ].
 
-            parserFlags warnHiddenVariables ifTrue:[
+            (self isDoIt not and:[parserFlags warnHiddenVariables]) ifTrue:[
                 methodArgNames notNil ifTrue:[
                     (methodArgNames includes:tokenName) ifTrue:[
                         self 
@@ -5360,7 +5360,7 @@
 
     ^ self
 
-    "Modified: / 31.3.1998 / 17:30:33 / cg"
+    "Modified: / 13-02-2012 / 10:52:03 / cg"
 !
 
 parseMethodSpec
@@ -10651,11 +10651,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.701 2012-02-07 16:23:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.702 2012-02-13 09:52:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.701 2012-02-07 16:23:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.702 2012-02-13 09:52:22 cg Exp $'
 !
 
 version_SVN