--- a/Metaclass.st	Fri Apr 18 16:40:09 1997 +0200
+++ b/Metaclass.st	Fri Apr 18 16:41:17 1997 +0200
@@ -474,9 +474,9 @@
      classVarChange instVarChange superClassChange newComment
      changeSet1 changeSet2 addedNames
      anyChange oldInstVars newInstVars oldClassVars newClassVars superFlags newFlags
-     pkg idx spec nClassInstVars superInstVars
-     realNewName thisIsPrivate oldCIVNames newCIVNames msg nsName namespace
-     oldSuperClass newSuperClass globalExistedBefore oldCategory
+     pkg idx spec nClassInstVars 
+     realNewName thisIsPrivate oldCIVNames newCIVNames nsName namespace
+     oldSuperClass newSuperClass oldCategory
      recompileGlobalAccessTo|
 
     "NOTICE:
@@ -1364,7 +1364,7 @@
      (but thats how its defined in the book - maybe I will change it anyway).
     "
 
-    |superClassInstVarNames names idx what|
+    |names idx what|
 
     "let user confirm, if the classname is no good"
     className first isUppercase ifFalse:[
@@ -1782,5 +1782,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.108 1997-03-03 12:48:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.109 1997-04-18 14:41:17 cg Exp $'
 ! !