--- a/NameSpace.st	Mon Jun 11 14:34:12 2018 +0200
+++ b/NameSpace.st	Mon Jun 11 15:22:23 2018 +0200
@@ -159,8 +159,18 @@
      Notice, that the nameSpace is created in the current one -
      don't get confused; we recommend, not to nest them too much."
 
-    |currentNameSpace newNameSpace existing ok nameSym fullName|
+    |currentNameSpace newNameSpace existing ok nameSym fullName 
+     idx firstPart rest ns|
 
+    "/ ouch: care for more ::'s in the given sub-name
+    (aStringOrSymbol includesString:'::') ifTrue:[
+        idx := aStringOrSymbol indexOfString:'::'.
+        firstPart := aStringOrSymbol copyTo:(idx-1).
+        rest := aStringOrSymbol copyFrom:(idx+2).
+        ns := self name:firstPart.
+        ^ ns name:rest.
+    ].
+    
     ok := aStringOrSymbol first isLetterOrUnderline.
     ok ifTrue:[
         (aStringOrSymbol 
@@ -217,6 +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"
 !
 
 new