--- a/MethodRemoveChange.st	Wed Jun 19 14:07:11 2002 +0200
+++ b/MethodRemoveChange.st	Wed Jun 19 14:10:56 2002 +0200
@@ -61,6 +61,14 @@
 
     "Modified: / 27.8.1995 / 22:56:03 / claus"
     "Created: / 16.2.1998 / 12:51:57 / cg"
+!
+
+selector:sel
+    selector := sel
+!
+
+type:typeSymbol
+    typeSymbol ~~ #remove ifTrue:[self halt]
 ! !
 
 !MethodRemoveChange methodsFor:'printing'!
@@ -77,5 +85,5 @@
 !MethodRemoveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.4 2000-08-22 19:57:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.5 2002-06-19 12:10:56 cg Exp $'
 ! !