--- a/Metaclass.st	Wed Feb 21 13:37:49 1996 +0100
+++ b/Metaclass.st	Wed Feb 21 13:46:33 1996 +0100
@@ -105,7 +105,7 @@
      oldNames newNames addedNames
      oldOffsets newOffsets offset changeSet delta
      oldToNew newSubMeta newSub oldSubMeta oldSuper
-     commonClassInstVars currentProject t|
+     commonClassInstVars t|
 
     "
      cleanup needed here: extract common things with name:inEnvironment:...
@@ -1228,7 +1228,7 @@
      now undefined instvars) methods. Later compilation of these methods will show
      an error on the transcript and lead to the debugger once called."
 
-    |trap trapCode trapByteCode oldMethod newMethod oldMethodArray 
+    |trap trapCode trapByteCode oldMethod newMethod
      newSelectorArray newMethodArray
      nMethods "{ Class: SmallInteger }"|
 
@@ -1276,7 +1276,7 @@
      layout for all methods which are affected by the change."
 
     |trap trapCode trapByteCode p source mustInvalidate
-     oldMethod newMethod oldMethodArray newSelectorArray newMethodArray
+     oldMethod newMethod newSelectorArray newMethodArray
      nMethods "{ Class: SmallInteger }"
      nNames usedVars|
 
@@ -1427,5 +1427,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.47 1996-02-08 21:03:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.48 1996-02-21 12:45:14 cg Exp $'
 ! !