--- a/ClassBuilder.st	Wed Jun 05 17:09:21 2019 +0200
+++ b/ClassBuilder.st	Wed Jun 05 17:09:46 2019 +0200
@@ -2150,12 +2150,12 @@
     (className first isLetterOrUnderline) ifFalse:[
         ClassBuildError raiseErrorString:'Invalid class name (must start with a letter)'.
     ].
-    (className conform:[:ch | ch isLetterOrDigit or:[ch == $_]]) ifFalse:[
+    (className conform:[:ch | ch isLetterOrDigitOrUnderline]) ifFalse:[
         ClassBuildError raiseRequestErrorString:'Invalid class name (must consist of letters, digits or underline)'.
     ].
 
     "Modified: / 11-08-2006 / 12:46:54 / cg"
-    "Modified: / 08-08-2018 / 09:07:44 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 17:06:04 / Claus Gittinger"
 !
 
 checkConventionsFor:className subClassOf:aClass instVarNames:instVarNameString classVarNames:classVarNameString