--- a/FileBrowser.st	Wed Feb 07 11:06:20 2001 +0100
+++ b/FileBrowser.st	Wed Feb 07 11:06:35 2001 +0100
@@ -2967,21 +2967,27 @@
 
     |sel box orgName1 name1 name2 text1 text2 f d err nm here l1|
 
-    sel := self getSelectedFileName.
-
-    orgName1 := ''.
-    (sel size > 0
-    and:[lastFileDiffDirectory notNil
-    and:[lastFileDiffDirectory asFilename isDirectory]]) ifTrue:[
-        f := lastFileDiffDirectory asFilename construct:sel.
-        (f exists
-        and:[f isReadable]) ifTrue:[
-            orgName1 := f name
-        ]
-    ].
-
-    name1 := orgName1 asValue.
-    name2 := self getSelectedFileName asValue.
+    sel := fileListView selection.
+    (sel size == 2) ifTrue:[
+        name1 := fileList at:sel first.
+        name2 := fileList at:sel last.
+    ] ifFalse:[
+        sel := self getSelectedFileName.
+
+        orgName1 := ''.
+        (sel size > 0
+        and:[lastFileDiffDirectory notNil
+        and:[lastFileDiffDirectory asFilename isDirectory]]) ifTrue:[
+            f := lastFileDiffDirectory asFilename construct:sel.
+            (f exists
+            and:[f isReadable]) ifTrue:[
+                orgName1 := f name
+            ]
+        ].
+        name1 := orgName1 asValue.
+        name2 := self getSelectedFileName asValue.
+    ].
+
     here := currentDirectory pathName.
 
     box := DialogBox new.
@@ -7178,5 +7184,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.394 2001-01-25 10:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.395 2001-02-07 10:06:35 cg Exp $'
 ! !