--- a/NameSpace.st	Mon Mar 13 12:33:34 2006 +0100
+++ b/NameSpace.st	Mon Mar 13 16:53:58 2006 +0100
@@ -340,6 +340,10 @@
     "Created: 9.9.1997 / 03:33:56 / cg"
 !
 
+classNames
+    ^ self allClasses collect:[:each | each nameWithoutPrefix]
+!
+
 includesKey:aClassNameStringOrSymbol
     "{ Pragma: +optSpace }"
 
@@ -469,13 +473,13 @@
 
 !NameSpace class methodsFor:'queries'!
 
-allNamespaces
+allNameSpaces
     "return a list of all namespaces"
 
-    ^ self allNamespacesIn:Smalltalk
+    ^ self allNameSpacesIn:Smalltalk
 !
 
-allNamespacesIn:anEnvironment
+allNameSpacesIn:anEnvironment
     "return a list of all namespaces"
 
     |set|
@@ -492,10 +496,34 @@
     ^ set
 !
 
+allNamespaces
+    "return a list of all namespaces"
+
+    <resource: #obsolete>
+
+    ^ self allNameSpaces
+!
+
+allNamespacesIn:anEnvironment
+    "return a list of all namespaces"
+
+    <resource: #obsolete>
+
+    ^ self allNameSpacesIn:anEnvironment
+!
+
+hasNameSpaces
+    "return true - if I support sub-namespaces"
+
+    ^ false
+!
+
 hasNamespaces
     "return true - if I support sub-namespaces"
 
-    ^ false
+    <resource: #obsolete>
+
+    ^ self hasNameSpaces
 !
 
 isNameSpace
@@ -513,7 +541,7 @@
 isTopLevelNamespace
     "obsolete - use isTopLevelNameSpace"
 
-    <resource:#obsolete>
+    <resource: #obsolete>
 
     ^ (self name includes:$:) not
 ! !
@@ -521,5 +549,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.55 2006-03-06 08:49:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.56 2006-03-13 15:53:58 cg Exp $'
 ! !