--- a/NameSpace.st	Fri Jun 20 09:13:15 2003 +0200
+++ b/NameSpace.st	Fri Jun 20 09:24:24 2003 +0200
@@ -249,7 +249,7 @@
 
     variable := words := pointers := false.
     indexed ~~ #none ifTrue:[
-        self halt:'not yet implemented'.
+        self shouldImplement.
     ].
     superclassOrName isSymbol ifTrue:[
         superclass := Smalltalk at:superclassOrName.
@@ -513,11 +513,13 @@
 isTopLevelNamespace
     "obsolete - use isTopLevelNameSpace"
 
+    <resource:#obsolete>
+
     ^ (self name includes:$:) not
 ! !
 
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.49 2003-06-18 22:57:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.50 2003-06-20 07:24:24 stefan Exp $'
 ! !