--- a/Filename.st	Thu Apr 04 14:15:02 2019 +0200
+++ b/Filename.st	Wed Apr 10 05:58:34 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'!
@@ -954,10 +954,11 @@
     ^ self named:s
 
     "
-     Filename desktopDirectory
+     Filename trashDirectoryOrNil
     "
 
     "Created: / 16-05-2007 / 13:18:34 / cg"
+    "Modified (comment): / 10-04-2019 / 05:51:00 / Claus Gittinger"
 !
 
 usersPrivateSmalltalkDirectory