--- a/Tools__NewClassWizardDialog.st	Thu Jun 22 06:59:06 2017 +0200
+++ b/Tools__NewClassWizardDialog.st	Thu Jun 22 07:00:32 2017 +0200
@@ -810,7 +810,7 @@
         self warn:'No valid Classname entered (must be alphaNumeric)'.
         ^ false.
     ].
-    newClassName first isUppercase ifFalse:[
+    newClassName isLowercaseFirst ifTrue:[
         self warn:'No valid Classname entered (first Character must be uppercase)'.
         ^ false.
     ].
@@ -879,8 +879,7 @@
 
     ^ true
 
-    "Modified: / 30-01-2011 / 09:33:28 / cg"
-    "Modified (comment): / 27-01-2012 / 14:53:02 / cg"
+    "Modified: / 22-06-2017 / 06:55:24 / cg"
 !
 
 doAcceptForNewPackage