--- a/NameSpace.st	Wed Jun 05 14:29:11 2019 +0200
+++ b/NameSpace.st	Wed Jun 05 17:09:01 2019 +0200
@@ -174,7 +174,7 @@
     ok := aStringOrSymbol first isLetterOrUnderline.
     ok ifTrue:[
         (aStringOrSymbol 
-            findFirst:[:ch | (ch isLetterOrDigit or:[ch == $_]) not]
+            findFirst:[:ch | (ch isLetterOrDigitOrUnderline) not]
             startingAt:2) ~~ 0
         ifTrue:[
             ok := false.
@@ -227,7 +227,7 @@
     "Modified: / 14-09-1997 / 09:46:59 / cg"
     "Modified: / 18-03-1999 / 18:24:13 / stefan"
     "Modified (comment): / 23-03-2012 / 11:49:00 / cg"
-    "Modified: / 11-06-2018 / 15:22:04 / Claus Gittinger"
+    "Modified: / 05-06-2019 / 17:06:27 / Claus Gittinger"
 !
 
 new