--- a/ParserFlags.st	Mon Mar 10 10:54:19 2008 +0100
+++ b/ParserFlags.st	Mon Mar 10 10:57:35 2008 +0100
@@ -809,6 +809,18 @@
     WarnAboutReferenceToPrivateClass := aBoolean
 !
 
+warnAboutShortLocalVariableNames
+    "controls generation of warning messages about short variable names"
+    
+    ^ WarnAboutShortLocalVariableNames
+!
+
+warnAboutShortLocalVariableNames:aBoolean 
+    "controls generation of warning messages about short variable names"
+    
+    WarnAboutShortLocalVariableNames := aBoolean
+!
+
 warnAboutVariableNameConventions 
     "controls generation of warning messages about wrong variable names"
     
@@ -1830,7 +1842,7 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.40 2008-03-10 09:50:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.41 2008-03-10 09:57:35 cg Exp $'
 ! !
 
 ParserFlags initialize!