--- a/MethodChange.st	Mon Sep 24 11:45:00 2001 +0200
+++ b/MethodChange.st	Thu Sep 27 19:52:38 2001 +0200
@@ -49,10 +49,18 @@
 
 class:cls selector:sel source:src category:cat
     ^ self basicNew class:cls selector:sel source:src category:cat
+!
+
+className:clsName selector:sel source:src category:cat
+    ^ self basicNew className:clsName selector:sel source:src category:cat
 ! !
 
 !MethodChange methodsFor:'accessing'!
 
+category
+    ^ methodCategory 
+!
+
 category: aCategory
     methodCategory := aCategory
 
@@ -111,12 +119,14 @@
 previousVersion
     "return the value of the instance variable 'previousVersion' (automatically generated)"
 
-    ^ previousVersion!
+    ^ previousVersion
+!
 
 previousVersion:something
     "set the value of the instance variable 'previousVersion' (automatically generated)"
 
-    previousVersion := something.!
+    previousVersion := something.
+!
 
 selector
     ^ selector
@@ -210,5 +220,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.27 2000-08-31 10:03:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.28 2001-09-27 17:52:38 cg Exp $'
 ! !