--- a/MethodDefinitionChange.st	Tue Apr 08 16:03:00 2003 +0200
+++ b/MethodDefinitionChange.st	Wed Apr 09 12:50:33 2003 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libbasic3' }"
+
 MethodChange subclass:#MethodDefinitionChange
 	instanceVariableNames:'attributes'
 	classVariableNames:''
@@ -11,15 +13,23 @@
 attributes
     "return the value of the instance variable 'attributes' (automatically generated)"
 
-    ^ attributes!
+    ^ attributes
+!
 
 attributes:something
     "set the value of the instance variable 'attributes' (automatically generated)"
 
-    attributes := something.! !
+    attributes := something.
+! !
+
+!MethodDefinitionChange methodsFor:'queries'!
+
+isMethodDefinitionChange
+    ^ true
+! !
 
 !MethodDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodDefinitionChange.st,v 1.1 2000-03-21 12:46:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodDefinitionChange.st,v 1.2 2003-04-09 10:50:33 cg Exp $'
 ! !