--- a/AbstractFileBrowser.st	Tue May 11 16:48:58 2004 +0200
+++ b/AbstractFileBrowser.st	Tue May 11 16:58:58 2004 +0200
@@ -5334,15 +5334,15 @@
     ] ifFalse:[
         name1 := name1 asFilename.
         LastFileDiffFile := name1.
-        name1 asFilename isReadable ifFalse:[
+        name1 isReadable ifFalse:[
             nm := name1.
-            name1 asFilename exists ifFalse:[
+            name1 exists ifFalse:[
                 err := '"%1" does not exist.'.
             ] ifTrue:[
                 err := '"%1" is not readable.'
             ].
         ].
-        l1 := name1
+        l1 := name1 pathName
     ].
 
     err isNil ifTrue:[
@@ -6741,5 +6741,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.229 2004-05-11 14:36:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.230 2004-05-11 14:58:58 cg Exp $'
 ! !