--- a/NameSpace.st	Wed Jun 14 20:29:00 2006 +0200
+++ b/NameSpace.st	Thu Jun 15 11:35:48 2006 +0200
@@ -542,10 +542,9 @@
 
 isNameSpace
     "return true, if the receiver is a nameSpace.
-     Unconditionally true here - I am a namespace"
+     Unconditionally true here - my subclasses are namespaces"
 
-    self == NameSpace ifTrue:[^ false].
-    ^ true
+    ^ self ~~ NameSpace .
 !
 
 isTopLevelNameSpace
@@ -563,5 +562,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.57 2006-03-16 15:57:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.58 2006-06-15 09:35:48 stefan Exp $'
 ! !