--- a/Tools__ClassChecker.st	Thu Jun 22 06:58:56 2017 +0200
+++ b/Tools__ClassChecker.st	Thu Jun 22 06:59:06 2017 +0200
@@ -157,7 +157,7 @@
     |badInstVars badClassVars|
 
     badInstVars := checkedClass instanceVariableNames select:[:varName | varName isUppercaseFirst].
-    badClassVars := checkedClass classVarNames select:[:varName | varName first isLowercase].
+    badClassVars := checkedClass classVarNames select:[:varName | varName isLowercaseFirst].
 
     badInstVars notEmpty ifTrue:[
         badInstVars := (badInstVars collect:[:v | '''' , v , '''']) asStringWith:$, .
@@ -171,6 +171,8 @@
             rememberBadClass:checkedClass
             info:('classVars ' , badClassVars , ' should be uppercase (#checkNameConventions)').
     ].
+
+    "Modified: / 22-06-2017 / 06:57:27 / cg"
 !
 
 classInstanceVariablesNeverUsed