--- a/VersionDiffBrowser.st	Wed Nov 11 17:49:42 2009 +0100
+++ b/VersionDiffBrowser.st	Wed Nov 11 17:54:02 2009 +0100
@@ -1682,12 +1682,25 @@
 
     isExtensionChange := 
         [:change |
-            |packageOfMethod ignored|
+            |packageOfMethodInChange packageOfMethodInImage changeMethod ignored|
+
+            ignored := false.
+            packageOfMethodInChange := change package.
+            (packageOfMethodInChange notNil
+              and:[ packageOfMethodInChange ~= PackageId noProjectID
+              and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[ 
+                ignored := true 
+            ].
 
-            packageOfMethod := change package.
-            ignored := packageOfMethod notNil
-                        and:[ packageOfMethod ~= PackageId noProjectID
-                        and:[ packageOfMethod ~= change changeClass package ]].
+            changeMethod := change changeMethod.
+            changeMethod notNil ifTrue:[
+                packageOfMethodInImage := changeMethod package.
+                (packageOfMethodInImage notNil
+                  and:[ packageOfMethodInImage ~= PackageId noProjectID
+                  and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[
+                    ignored := true
+                ].
+            ].
             numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]).
             ignored.
         ].
@@ -2180,9 +2193,9 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $'
 ! !