--- a/ChangeSetDiffEntry.st	Wed Jun 06 10:46:26 2012 +0100
+++ b/ChangeSetDiffEntry.st	Fri Jun 22 10:52:57 2012 +0100
@@ -345,9 +345,11 @@
 isForVersionMethod
     "Returns true, if this is an entry for version method"
 
-    ^versionA notNil and:[versionA isMethodCodeChange
-        and:[versionB notNil and:[versionB isMethodCodeChange
-            and:[AbstractSourceCodeManager isVersionMethodSelector: versionA selector]]]]
+    | version |
+
+    version := versionA ? versionB.
+    ^version isMethodCodeChange
+        and:[AbstractSourceCodeManager isVersionMethodSelector: version selector]
 
     "Created: / 18-04-2012 / 18:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -373,5 +375,5 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSetDiffEntry.st 1920 2012-04-18 20:21:56Z vranyj1 $'
+    ^ '$Id: ChangeSetDiffEntry.st 1927 2012-06-22 09:52:57Z vranyj1 $'
 ! !