--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MethodChange.st	Fri Jul 16 11:38:06 1993 +0200
@@ -0,0 +1,29 @@
+'From Smalltalk/X, Version:2.6.4 on 29-Apr-1993 at 19:31:37'!
+
+ClassChange subclass:#MethodChange
+	 instanceVariableNames:'selector'
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Changes'
+!
+
+!MethodChange class methodsFor:'instance creation'!
+
+class:cls selector:sel source:src
+    ^ self basicNew class:cls selector:sel source:src
+! !
+
+!MethodChange methodsFor:'accessing'!
+
+class:cls selector:sel source:src
+    className := cls name.
+    selector := sel.
+    source := src
+! !
+
+!MethodChange methodsFor:'printing'!
+
+printString
+    ^ className , ' ' , selector 
+! !
+