--- a/ClassRemoveChange.st	Wed Feb 19 14:05:17 2014 +0100
+++ b/ClassRemoveChange.st	Wed Feb 19 14:05:21 2014 +0100
@@ -70,7 +70,9 @@
     class := self changeClass.
     class notNil ifTrue:[^#-].
     ^ #=
-!
+! !
+
+!ClassRemoveChange methodsFor:'testing'!
 
 isClassRemoveChange
     ^ true
@@ -79,6 +81,6 @@
 !ClassRemoveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.7 2013-04-02 19:21:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.8 2014-02-19 13:05:21 cg Exp $'
 ! !