--- a/Metaclass.st	Mon Nov 04 15:51:17 2002 +0100
+++ b/Metaclass.st	Mon Nov 04 15:52:10 2002 +0100
@@ -228,7 +228,37 @@
 
 !Metaclass methodsFor:'creating classes'!
 
-name:newName in:aSystemDictionaryOrClass
+name:newName inEnvironment:aSystemDictionary
+             subclassOf:aClass
+             instanceVariableNames:stringOfInstVarNames
+             variable:variableBoolean
+             words:wordsBoolean
+             pointers:pointersBoolean
+             classVariableNames:stringOfClassVarNames
+             poolDictionaries:stringOfPoolNames
+             category:categoryString
+             comment:commentString
+             changed:changed
+
+    ^ self
+        name:newName 
+        inEnvironment:aSystemDictionary
+        subclassOf:aClass
+        instanceVariableNames:stringOfInstVarNames
+        variable:variableBoolean
+        words:wordsBoolean
+        pointers:pointersBoolean
+        classVariableNames:stringOfClassVarNames
+        poolDictionaries:stringOfPoolNames
+        category:categoryString
+        comment:commentString
+        changed:changed
+        classInstanceVariableNames:nil
+
+    "Modified: 16.6.1997 / 11:53:58 / cg"
+!
+
+name:newName inEnvironment:aSystemDictionaryOrClass
              subclassOf:aClass
              instanceVariableNames:stringOfInstVarNames
              variable:variableBoolean
@@ -253,7 +283,7 @@
 
     builder := self newClassBuilder.
     builder name:newName 
-        in:aSystemDictionaryOrClass
+        inEnvironment:aSystemDictionaryOrClass
         subclassOf:aClass
         instanceVariableNames:stringOfInstVarNames
         variable:variableBoolean
@@ -268,36 +298,6 @@
     ^ builder buildClass.
 !
 
-name:newName inEnvironment:aSystemDictionary
-             subclassOf:aClass
-             instanceVariableNames:stringOfInstVarNames
-             variable:variableBoolean
-             words:wordsBoolean
-             pointers:pointersBoolean
-             classVariableNames:stringOfClassVarNames
-             poolDictionaries:stringOfPoolNames
-             category:categoryString
-             comment:commentString
-             changed:changed
-
-    ^ self
-        name:newName 
-        in:aSystemDictionary
-        subclassOf:aClass
-        instanceVariableNames:stringOfInstVarNames
-        variable:variableBoolean
-        words:wordsBoolean
-        pointers:pointersBoolean
-        classVariableNames:stringOfClassVarNames
-        poolDictionaries:stringOfPoolNames
-        category:categoryString
-        comment:commentString
-        changed:changed
-        classInstanceVariableNames:nil
-
-    "Modified: 16.6.1997 / 11:53:58 / cg"
-!
-
 new
     "create & return a new metaclass (a classes class).
      Since metaclasses only have one instance (the class),
@@ -508,6 +508,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.182 2002-05-02 08:57:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.183 2002-11-04 14:51:53 cg Exp $'
 ! !
+
 Metaclass initialize!