--- a/AbstractFileBrowser.st	Mon Jan 20 11:32:42 2003 +0100
+++ b/AbstractFileBrowser.st	Mon Jan 20 11:40:08 2003 +0100
@@ -1898,6 +1898,9 @@
 !
 
 doCompareTwoFiles
+
+    self openDiffView.
+"
     |files fileName1 fileName2 stream1 stream2 buffer1 buffer2 n1 n2 idx blockSize blockOffset|
 
     files := self currentFileNameHolder value.
@@ -1953,6 +1956,7 @@
     ].
 
 self halt.
+"
 "/    action := [:command | 
 "/                self addToCommandHistory:command for:fileName.
 "/                self executeCommand:command.
@@ -5547,5 +5551,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.81 2003-01-20 10:32:42 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.82 2003-01-20 10:39:39 penk Exp $'
 ! !