--- a/Filename.st	Wed Nov 10 17:20:51 1999 +0100
+++ b/Filename.st	Thu Nov 11 00:58:33 1999 +0100
@@ -1110,7 +1110,10 @@
      same contents as the file represented by the argument, aFilename.
      This compares the files actual contents; not the filenames."
 
-    |s1 s2 buffer1 buffer2 rslt n|
+    |f2 s1 s2 buffer1 buffer2 rslt n|
+
+    f2 := aFilename asFilename.
+    f2 fileSize = self fileSize ifFalse:[^ false].
 
     buffer1 := ByteArray new:8192.
     buffer2 := ByteArray new:8192.
@@ -1119,7 +1122,7 @@
     s1 isNil ifTrue:[
         ^ self error:('cannot open %1 for reading' bindWith:nameString)
     ].
-    s2 := aFilename asFilename readStream.
+    s2 := f2 readStream.
     s2 isNil ifTrue:[
         ^ self error:('cannot open %1 for reading' bindWith:aFilename asFilename name)
     ].
@@ -3386,6 +3389,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.167 1999-10-25 18:03:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.168 1999-11-10 23:58:33 cg Exp $'
 ! !
 Filename initialize!