--- a/VersionDiffBrowser.st	Mon Oct 04 12:48:52 1999 +0200
+++ b/VersionDiffBrowser.st	Wed Oct 06 14:03:30 1999 +0200
@@ -899,14 +899,18 @@
         c isClassDefinitionChange ifTrue:[
             c printStringWithoutClass
         ] ifFalse:[
-            c className = classBeingCompared name ifTrue:[
-                c printStringWithoutClass
+            c isDoIt ifTrue:[
+                c source , ' (doIt)'
             ] ifFalse:[
-                "/ include name in private class changes
-                (c className startsWith:(classBeingCompared name , '::')) ifTrue:[
-                    (c className copyFrom:(classBeingCompared name size + 3)) , ' ' ,  c printStringWithoutClass
+                c className = classBeingCompared name ifTrue:[
+                    c printStringWithoutClass
                 ] ifFalse:[
-                    c printString
+                    "/ include name in private class changes
+                    (c className startsWith:(classBeingCompared name , '::')) ifTrue:[
+                        (c className copyFrom:(classBeingCompared name size + 3)) , ' ' ,  c printStringWithoutClass
+                    ] ifFalse:[
+                        c printString
+                    ]
                 ]
             ]
         ]
@@ -986,5 +990,5 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.7 1999-09-03 13:03:09 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.8 1999-10-06 12:03:30 cg Exp $'
 ! !