--- a/ChangeSet.st	Fri Aug 11 22:36:25 2000 +0200
+++ b/ChangeSet.st	Fri Aug 11 22:48:49 2000 +0200
@@ -709,12 +709,15 @@
     "remove all changes for aClass and aPackageSymbol
      (i.e. leave methodChanges for other packages"
 
-    |changesToRemove className chgCls|
+    |changesToRemove className metaClassName chgCls|
 
     changesToRemove := OrderedCollection new.
-    className := aClass name.
-    self do:[:aChange | |chgClass|
-        aChange className = className ifTrue:[
+    className := aClass theNonMetaclass name.
+    metaClassName := aClass theMetaclass name.
+    self do:[:aChange | |chgClassName chgClass|
+        chgClassName := aChange className.
+        (chgClassName = className
+        or:[chgClassName = metaClassName]) ifTrue:[
             changesToRemove add:aChange
         ] ifFalse:[
             chgCls := aChange changeClass.
@@ -856,5 +859,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.49 2000-08-11 20:36:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.50 2000-08-11 20:48:49 cg Exp $'
 ! !