--- a/ClassBuilder.st	Sat Feb 07 16:36:49 2015 +0100
+++ b/ClassBuilder.st	Sat Feb 07 16:37:16 2015 +0100
@@ -2103,7 +2103,7 @@
     or:[className size == 0]) ifTrue:[
         ClassBuildError raiseErrorString:'invalid class name (must be a nonEmpty symbol)'.
     ].
-    (className first isLetter or:[className first = $_]) ifFalse:[
+    (className first isLetterOrUnderline) ifFalse:[
         ClassBuildError raiseErrorString:'invalid class name (must start with a letter)'.
     ].
 
@@ -2393,11 +2393,11 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.133 2015-01-29 12:22:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.134 2015-02-07 15:37:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.133 2015-01-29 12:22:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.134 2015-02-07 15:37:16 cg Exp $'
 ! !