--- a/MethodCategoryChange.st	Tue Oct 06 06:43:07 2015 +0200
+++ b/MethodCategoryChange.st	Fri Oct 09 17:46:53 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 MethodChange subclass:#MethodCategoryChange
 	instanceVariableNames:'origin'
 	classVariableNames:''
@@ -80,6 +82,20 @@
     "Created: / 16.2.1998 / 14:14:16 / cg"
 !
 
+deltaDetail
+    "Returns a delta to the current state as a ChangeDelta object"
+
+    | mth|
+
+    mth := self changeMethod.
+    (mth category = methodCategory) ifTrue:[
+        ^ ChangeDeltaInformation identical 
+    ].
+    ^ ChangeDeltaInformation different
+
+    "Created: / 09-10-2015 / 17:45:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 origin
     ^ origin
 !