--- a/Filename.st	Tue Apr 30 23:14:26 2019 +0200
+++ b/Filename.st	Wed May 01 11:45:14 2019 +0200
@@ -16,10 +16,10 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#Filename
-        instanceVariableNames:'nameString'
-        classVariableNames:'ConcreteClass DefaultTempDirectory TempDirectory'
-        poolDictionaries:''
-        category:'System-Support'
+	instanceVariableNames:'nameString'
+	classVariableNames:'ConcreteClass DefaultTempDirectory TempDirectory'
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 !Filename class methodsFor:'documentation'!
@@ -6767,7 +6767,7 @@
     self species isCaseSensitive ifTrue:[
         ^ mySuffix = aSuffixString
     ].
-    ^ mySuffix asLowercase = aSuffixString asLowercase
+    ^ mySuffix sameAs:aSuffixString
 
     "
      'abc.st' asFilename hasSuffix:'st'
@@ -6777,7 +6777,8 @@
      '.foorc.sav' asFilename hasSuffix:'sav'
     "
 
-    "Modified: 7.9.1997 / 02:55:25 / cg"
+    "Modified: / 07-09-1997 / 02:55:25 / cg"
+    "Modified: / 01-05-2019 / 11:22:37 / Claus Gittinger"
 !
 
 nameWithoutSuffix