--- 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 $'
 ! !