--- a/NameSpace.st	Fri Jan 18 21:56:08 2013 +0100
+++ b/NameSpace.st	Fri Jan 18 21:56:20 2013 +0100
@@ -143,7 +143,7 @@
 
     |currentNameSpace newNameSpace existing ok nameSym fullName|
 
-    ok := aStringOrSymbol first isLetter.
+    ok := aStringOrSymbol first isLetter or:[aStringOrSymbol first == $_].
     ok ifTrue:[
         (aStringOrSymbol 
             findFirst:[:ch | (ch isLetterOrDigit or:[ch == $_]) not]
@@ -734,9 +734,10 @@
 !NameSpace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.75 2012-10-22 20:26:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.76 2013-01-18 20:56:20 cg Exp $'
 !
 
 version_SVN
     ^ '§ Id: NameSpace.st 10643 2011-06-08 21:53:07Z vranyj1  §'
 ! !
+