--- a/NameSpace.st	Wed May 21 21:52:48 2003 +0200
+++ b/NameSpace.st	Thu May 22 21:41:38 2003 +0200
@@ -485,6 +485,12 @@
     ^ set
 !
 
+hasNamespaces
+    "return true - if I support sub-namespaces"
+
+    ^ false
+!
+
 isNameSpace
     "return true - I am a namespace"
 
@@ -506,5 +512,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.46 2003-05-19 10:13:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.47 2003-05-22 19:41:38 cg Exp $'
 ! !