--- a/NameSpace.st	Fri Nov 10 17:02:18 2006 +0100
+++ b/NameSpace.st	Fri Nov 10 17:02:49 2006 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#NameSpace
@@ -551,9 +549,20 @@
 
 isNameSpace
     "return true, if the receiver is a nameSpace.
-     Unconditionally true here - my subclasses are namespaces"
+     Unconditionally true here for subclasses - my subclasses are namespaces"
 
     ^ self ~~ NameSpace .
+
+    "Modified: / 10-11-2006 / 17:01:56 / cg"
+!
+
+isRealNameSpace
+    "return true, if the receiver is a nameSpace, but not Smalltalk (which is also a class).
+     Unconditionally true here for subclasses - my subclasses are namespaces"
+
+    ^ self ~~ NameSpace .
+
+    "Created: / 10-11-2006 / 17:01:52 / cg"
 !
 
 isTopLevelNameSpace
@@ -571,5 +580,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.62 2006-09-18 19:49:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.63 2006-11-10 16:02:49 cg Exp $'
 ! !