--- a/Parser.st	Wed Jun 09 11:44:55 2004 +0200
+++ b/Parser.st	Wed Jun 09 11:46:25 2004 +0200
@@ -39,7 +39,7 @@
 		AllowVariableReferences AllowReservedWordsAsSelectors
 		AllowLocalVariableDeclarationWithInitializerExpression
 		AllowArrayIndexSyntaxExtension AllowDomainVariables
-		WarnAboutWrongVariableNames'
+		WarnAboutWrongVariableNames WarnAboutVariableNameConventions'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -2222,8 +2222,10 @@
     ^ true.
 !
 
-checkLocalVariableNameConventionsFor:aVariableName
-    self checkForLowercaseVariableName:aVariableName.
+checkLocalVariableNameConventionsFor:aVariableName 
+    WarnAboutVariableNameConventions == true ifTrue:[
+        self checkForLowercaseVariableName:aVariableName.
+    ].
     WarnAboutWrongVariableNames == true ifTrue:[
         self checkForProperUseOfArticleInVariableName:aVariableName.
     ].
@@ -7581,7 +7583,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.427 2004-06-09 09:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.428 2004-06-09 09:46:25 cg Exp $'
 ! !
 
 Parser initialize!