--- a/Change.st	Sat Dec 04 16:06:06 1999 +0100
+++ b/Change.st	Tue Dec 07 14:29:29 1999 +0100
@@ -76,6 +76,14 @@
     "Created: / 16.2.1998 / 13:05:16 / cg"
 ! !
 
+!Change methodsFor:'applying'!
+
+apply
+    "apply the change"
+
+    self subclassResponsibility
+! !
+
 !Change methodsFor:'comparing'!
 
 isForSameAs:changeB
@@ -181,5 +189,5 @@
 !Change class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.23 1999-07-12 12:06:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Change.st,v 1.24 1999-12-07 13:29:29 cg Exp $'
 ! !

--- a/MethodChange.st	Sat Dec 04 16:06:06 1999 +0100
+++ b/MethodChange.st	Tue Dec 07 14:29:29 1999 +0100
@@ -90,6 +90,19 @@
     "Created: / 6.2.1998 / 13:29:25 / cg"
 ! !
 
+!MethodChange methodsFor:'applying'!
+
+apply
+    "apply the change"
+
+    |class|
+
+    class := Smalltalk classNamed:className.
+    class compile:source classified:methodCategory logged:true.
+
+
+! !
+
 !MethodChange methodsFor:'comparing'!
 
 isForSameAs:changeB
@@ -149,5 +162,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.20 1999-07-15 19:43:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.21 1999-12-07 13:29:10 cg Exp $'
 ! !