--- a/MethodChange.st	Sat Feb 07 20:01:42 1998 +0100
+++ b/MethodChange.st	Sat Feb 07 20:01:54 1998 +0100
@@ -58,6 +58,12 @@
     methodCategory := cat
 !
 
+methodCategory
+    ^ methodCategory
+
+    "Created: / 7.2.1998 / 19:47:53 / cg"
+!
+
 selector
     ^ selector
 
@@ -72,8 +78,16 @@
 	    nextPutAll:selector 
 ! !
 
+!MethodChange methodsFor:'queries'!
+
+isMethodChange
+    ^ true
+
+    "Created: / 7.2.1998 / 19:26:59 / cg"
+! !
+
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.14 1998-02-07 12:53:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.15 1998-02-07 19:01:54 cg Exp $'
 ! !