MethodRemoveChange.st
changeset 2047 ad2ebab696ac
parent 2025 bbf07cb89d9a
child 2121 fd9eb290be9f
--- a/MethodRemoveChange.st	Mon Nov 03 12:20:55 2008 +0100
+++ b/MethodRemoveChange.st	Mon Nov 03 12:21:07 2008 +0100
@@ -82,7 +82,7 @@
 !
 
 type:typeSymbol
-    typeSymbol ~~ #remove ifTrue:[ self halt:'oops - should not happen' ]
+    self assert:typeSymbol == #remove.
 ! !
 
 !MethodRemoveChange methodsFor:'printing'!
@@ -105,5 +105,5 @@
 !MethodRemoveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.9 2008-10-21 22:17:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.10 2008-11-03 11:21:07 stefan Exp $'
 ! !