--- a/NameSpace.st	Sat Feb 07 16:37:53 2015 +0100
+++ b/NameSpace.st	Sat Feb 07 16:39:13 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#NameSpace
 	instanceVariableNames:'category'
 	classVariableNames:'Imports'
@@ -143,7 +145,7 @@
 
     |currentNameSpace newNameSpace existing ok nameSym fullName|
 
-    ok := aStringOrSymbol first isLetter or:[aStringOrSymbol first == $_].
+    ok := aStringOrSymbol first isLetterOrUnderline.
     ok ifTrue:[
         (aStringOrSymbol 
             findFirst:[:ch | (ch isLetterOrDigit or:[ch == $_]) not]
@@ -738,7 +740,7 @@
 !NameSpace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.77 2014-02-14 09:47:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.78 2015-02-07 15:39:13 cg Exp $'
 !
 
 version_SVN