--- a/VersionDiffBrowser.st	Wed Aug 16 17:01:28 2000 +0200
+++ b/VersionDiffBrowser.st	Wed Aug 16 23:25:21 2000 +0200
@@ -1487,7 +1487,7 @@
 
 <return: ClassChangeSet>
 "
-    |theChangeSetA theChangeSetB theClassChangeSet versionCompared|
+    |theChangeSetA theChangeSetB theClassChangeSet versionCompared diffSet|
 
     theClassChangeSet := self new.
     theClassChangeSet classBeingCompared:aClass.
@@ -1508,8 +1508,19 @@
         ifTrue: [theChangeSetA := ChangeSet new].
     theChangeSetB isNil
         ifTrue: [theChangeSetB := ChangeSet new].
-    ^theClassChangeSet diffSet:(theChangeSetA diffSetsAgainst:theChangeSetB)
-
+    "/ if we are comparing a private class, prune out other changes
+    aClass isPrivate ifTrue:[
+        theChangeSetA removeAllSuchThat:[:aChange |
+                                                aChange className ~= aClass name
+                                        ].
+        theChangeSetB removeAllSuchThat:[:aChange |
+                                                aChange className ~= aClass name
+                                        ].
+    ].
+    self activityNotification:'generating diff-set...'.
+    diffSet := theClassChangeSet diffSet:(theChangeSetA diffSetsAgainst:theChangeSetB).
+    self activityNotification:nil.
+    ^ diffSet
 !
 
 newForClass:aClass labelA:aLabelA sourceA:aSourceA labelB:aLabelB sourceB:aSourceB
@@ -1667,5 +1678,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.25 2000-08-15 14:16:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.26 2000-08-16 21:25:21 cg Exp $'
 ! !