--- a/MethodChange.st	Fri Sep 12 21:25:40 2003 +0200
+++ b/MethodChange.st	Fri Sep 12 22:56:42 2003 +0200
@@ -19,6 +19,13 @@
 	category:'System-Changes'
 !
 
+MethodChange subclass:#NamedMethodChange
+	instanceVariableNames:'changeName'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:MethodChange
+!
+
 !MethodChange class methodsFor:'documentation'!
 
 copyright
@@ -197,15 +204,22 @@
 
 ! !
 
+!MethodChange methodsFor:'converting'!
+
+asNamedMethodChange
+    ^ NamedMethodChange fromMethodChange:self
+! !
+
 !MethodChange methodsFor:'printing & storing'!
 
 printOn:aStream
     "append a user printed representation of the receiver to aStream.
      The format is suitable for a human - not meant to be read back."
 
-    aStream nextPutAll:self className; 
-                 space; 
-            nextPutAll:selector 
+    aStream 
+        nextPutAll:self className; 
+        space; 
+        nextPutAll:selector 
 !
 
 printWithoutClassNameOn:aStream
@@ -231,8 +245,30 @@
     "Created: / 7.2.1998 / 19:26:59 / cg"
 ! !
 
+!MethodChange::NamedMethodChange class methodsFor:'instance creation'!
+
+fromMethodChange:aMethodChange
+    ^ self new cloneInstanceVariablesFrom:aMethodChange
+! !
+
+!MethodChange::NamedMethodChange methodsFor:'accessing'!
+
+changeName:something
+    changeName := something.
+! !
+
+!MethodChange::NamedMethodChange methodsFor:'printing & storing'!
+
+printOn:aStream
+    changeName notNil ifTrue:[
+        changeName printOn:aStream.
+        ^ self.
+    ].
+    super printOn:aStream
+! !
+
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.35 2003-08-30 19:41:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.36 2003-09-12 20:56:42 cg Exp $'
 ! !