--- a/NameSpace.st	Thu Mar 07 08:51:31 2002 +0100
+++ b/NameSpace.st	Thu Mar 07 08:52:06 2002 +0100
@@ -300,6 +300,27 @@
                 classInstanceVariableNames: classInstVars
                 imports: imports
                 category: category
+
+    ^ self
+        defineClass: name
+        superclass: superclass
+        indexedType: indexed
+        private: private
+        instanceVariableNames: instVars
+        classInstanceVariableNames: classInstVars
+        imports: imports
+        category: category
+        attributes: nil
+!
+
+defineClass: name
+                superclass: superclass
+                indexedType: indexed
+                private: private
+                instanceVariableNames: instVars
+                classInstanceVariableNames: classInstVars
+                imports: imports
+                category: category
                 attributes: annotations
 
     "VW5i compatibility class/namespace creation"
@@ -485,5 +506,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.42 2002-02-18 16:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.43 2002-03-07 07:52:06 cg Exp $'
 ! !