--- a/Filename.st	Tue Mar 02 15:16:42 2004 +0100
+++ b/Filename.st	Tue Mar 02 15:18:10 2004 +0100
@@ -3525,7 +3525,7 @@
      or the contents is unknown.
      This is done using some heuristics, and may need some improvement"
 
-    |type buffer s size suffix idx idx2 baseNm|
+    |type buffer s size idx idx2|
 
     type := self type.
     type isNil ifTrue:[
@@ -3548,9 +3548,6 @@
     s := self readStreamOrNil.
     s isNil ifTrue:[^ nil].
 
-    suffix := self suffix asLowercase.
-    baseNm := self withoutSuffix baseName asLowercase.
-
     "/ read some data from the file ...
     buffer := String new:2048.
 
@@ -4956,7 +4953,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.274 2004-02-06 22:31:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.275 2004-03-02 14:18:10 ca Exp $'
 ! !
 
 Filename initialize!