--- a/NameSpace.st	Fri Sep 25 10:40:44 2009 +0200
+++ b/NameSpace.st	Fri Sep 25 21:02:24 2009 +0200
@@ -247,7 +247,11 @@
 
     variable := words := pointers := false.
     indexed ~~ #none ifTrue:[
-        self shouldImplement.
+        indexed == #objects ifTrue:[
+            variable := pointers := true.
+        ] ifFalse:[
+            self shouldImplement.
+        ]
     ].
     superclassOrName isSymbol ifTrue:[
         superclass := Smalltalk at:superclassOrName.
@@ -271,6 +275,16 @@
         comment:nil
         changed:true
         classInstanceVariableNames:classInstVars
+!
+
+defineNameSpace:nameSymbol private:private imports:imports category:category
+    |newNameSpace|
+
+    private ifTrue:[self halt].     "/ what to do ?
+    imports withoutSeparators notEmpty ifTrue:[self halt].     "/ what to do ?
+    newNameSpace := NameSpace name:nameSymbol.
+    newNameSpace setCategory:category.    
+    ^ newNameSpace
 ! !
 
 !NameSpace class methodsFor:'accessing'!
@@ -624,5 +638,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.67 2009-09-22 11:23:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.68 2009-09-25 19:02:24 cg Exp $'
 ! !