--- a/NameSpace.st	Fri Apr 07 13:46:44 2000 +0200
+++ b/NameSpace.st	Wed Apr 12 23:37:19 2000 +0200
@@ -435,13 +435,17 @@
 !
 
 isTopLevelNamespace
-    ^ (self name includes:$:) not
+    "obsolete - use isTopLevelNameSpace"
 
+    ^ (self name includes:$:) not
+!
 
+isTopLevelNameSpace
+    ^ (self name includes:$:) not
 ! !
 
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.37 2000-03-24 17:09:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.38 2000-04-12 21:37:19 cg Exp $'
 ! !