--- a/Parser.st	Tue Jun 01 13:53:42 2004 +0200
+++ b/Parser.st	Tue Jun 01 14:20:46 2004 +0200
@@ -2197,7 +2197,7 @@
             third isUppercase ifTrue:[
                 ('AEIOX' includes:third) ifFalse:[
                     self 
-                        syntaxError:('variable "' , aVariableName , '" should be named "a' , (aVariableName copyFrom:3) , '" (by english language rules)')
+                        warnCommonMistake:('variable "' , aVariableName , '" should be named "a' , (aVariableName copyFrom:3) , '" (by english language rules)')
                         position:tokenPosition to:source position1Based - 1.
                 ].
             ].
@@ -7568,7 +7568,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.425 2004-06-01 11:53:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.426 2004-06-01 12:20:46 ca Exp $'
 ! !
 
 Parser initialize!