--- a/MethodCategoryChange.st	Fri Oct 09 17:46:53 2015 +0100
+++ b/MethodCategoryChange.st	Mon Oct 12 16:35:40 2015 +0100
@@ -88,12 +88,13 @@
     | mth|
 
     mth := self changeMethod.
-    (mth category = methodCategory) ifTrue:[
+    (mth notNil and:[mth category = methodCategory]) ifTrue:[
         ^ ChangeDeltaInformation identical 
     ].
     ^ ChangeDeltaInformation different
 
     "Created: / 09-10-2015 / 17:45:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-10-2015 / 16:34:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 origin