--- a/ClassRemoveChange.st	Wed Apr 15 11:11:26 2015 +0100
+++ b/ClassRemoveChange.st	Wed Apr 15 11:17:33 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 ClassChange subclass:#ClassRemoveChange
 	instanceVariableNames:''
 	classVariableNames:''
@@ -52,6 +54,32 @@
 "
 ! !
 
+!ClassRemoveChange methodsFor:'accessing'!
+
+delta
+    "Returns a delta to the current state as a ChangeDelta object"
+
+    ^ self changeClass isNil ifTrue:[ 
+        #'='
+    ] ifFalse:[ 
+        #'-'
+    ].
+
+    "Modified: / 15-04-2015 / 11:17:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+deltaDetail
+    "Returns a delta to the current state as a ChangeDelta object"
+
+    ^ self changeClass isNil ifTrue:[ 
+        ChangeDeltaInformation identical.        
+    ] ifFalse:[ 
+        ChangeDeltaInformation removed.
+    ].
+
+    "Created: / 15-04-2015 / 11:16:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ClassRemoveChange methodsFor:'printing'!
 
 printOn:aStream
@@ -62,16 +90,6 @@
     "Modified: / 13-11-2006 / 10:40:17 / cg"
 ! !
 
-!ClassRemoveChange methodsFor:'queries'!
-
-delta
-    | class |
-
-    class := self changeClass.
-    class notNil ifTrue:[^#-].
-    ^ #=
-! !
-
 !ClassRemoveChange methodsFor:'testing'!
 
 isClassRemoveChange
@@ -82,5 +100,10 @@
 
 version
     ^ '$Header: /cvs/stx/stx/libbasic3/ClassRemoveChange.st,v 1.8 2014-02-19 13:05:21 cg Exp $'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !