--- a/NameSpace.st	Tue Mar 21 12:14:40 2000 +0100
+++ b/NameSpace.st	Tue Mar 21 13:39:36 2000 +0100
@@ -288,6 +288,43 @@
 
 ! !
 
+!Namespace class methodsFor:'defining'!
+
+defineClass: name
+                superclass: superclass
+                indexedType: indexed
+                private: private
+                instanceVariableNames: instVars
+                classInstanceVariableNames: classInstVars
+                imports: imports
+                category: category
+                attributes: annotations
+
+    |variable words pointers|
+
+    variable := words := pointers := false.
+    indexed ~~ #none ifTrue:[
+        self halt.
+    ].
+    ^ superclass value class
+        name:name 
+        in:self
+        subclassOf:superclass value
+        instanceVariableNames:instVars
+        variable:variable
+        words:words
+        pointers:pointers
+        classVariableNames:''
+        poolDictionaries:''
+        category:category
+        comment:nil
+        changed:true
+        classInstanceVariableNames:classInstVars
+        
+
+
+! !
+
 !Namespace class methodsFor:'enumerating'!
 
 allBehaviorsDo:aBlock
@@ -408,5 +445,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.33 2000-02-08 15:28:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.34 2000-03-21 12:39:36 cg Exp $'
 ! !