--- a/VersionDiffBrowser.st	Tue Dec 07 15:20:00 1999 +0100
+++ b/VersionDiffBrowser.st	Tue Dec 07 15:36:23 1999 +0100
@@ -959,7 +959,9 @@
         ]
     ].
 
-    generator := [:c | 
+    generator := [:c |
+        |mPkg cPkg cls m|
+
         c isClassDefinitionChange ifTrue:[
             c printStringWithoutClass
         ] ifFalse:[
@@ -967,7 +969,17 @@
                 c source , ' (doIt)'
             ] ifFalse:[
                 c className = classBeingCompared name ifTrue:[
-                    c printStringWithoutClass
+                    c printStringWithoutClass.
+                    c isMethodChange ifTrue:[
+                        cls := c changeClass.
+                        cls notNil ifTrue:[
+                            m := cls compiledMethodAt:c selector.
+                            (m notNil 
+                            and:[m package ~= cls package]) ifTrue:[
+                                c printStringWithoutClass , ' {' , m package , '}'.
+                            ].
+                        ].
+                    ]
                 ] ifFalse:[
                     "/ include name in private class changes
                     (c className startsWith:(classBeingCompared name , '::')) ifTrue:[
@@ -1011,7 +1023,6 @@
     ] ifFalse:[
         (self builder componentAt:#BoxM) beVisible.
     ]
-
 !
 
 updateViewsIfPossible
@@ -1089,5 +1100,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.10 1999-12-07 14:20:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.11 1999-12-07 14:36:23 cg Exp $'
 ! !