--- a/Filename.st	Mon Jan 26 16:09:08 2004 +0100
+++ b/Filename.st	Mon Jan 26 16:10:32 2004 +0100
@@ -323,26 +323,6 @@
     "
 !
 
-defaultTempDirectoryName
-    "return the default temp directory as a filename.
-     This is used, if no special preferences were defined in
-     any of the TEMP-environment variables (see tempDirectory)."
-
-    (self ~~ ConcreteClass) ifTrue:[
-	^ ConcreteClass defaultTempDirectoryName
-    ].
-
-    ^ '/tmp'
-
-    "
-     Filename defaultTempDirectoryName           
-    "
-
-    "Modified: 7.9.1995 / 10:48:31 / claus"
-    "Created: 7.3.1996 / 14:51:18 / cg"
-    "Modified: 8.9.1997 / 00:24:53 / cg"
-!
-
 findDefaultDirectory
     "same as #defaultDirectory for ST80 compatibility"
 
@@ -699,6 +679,9 @@
     "
      Filename tempDirectory           
      Filename tempDirectory pathName   
+     Filename tempDirectory exists   
+     Filename tempDirectory isWritable   
+     (Filename tempDirectory construct:'foo') makeDirectory   
     "
 
     "Modified: 7.9.1995 / 10:48:31 / claus"
@@ -725,6 +708,26 @@
     ^ ConcreteClass
 
     "Modified: 8.9.1997 / 00:36:01 / cg"
+!
+
+defaultTempDirectoryName
+    "return the default temp directory as a filename.
+     This is used, if no special preferences were defined in
+     any of the TEMP-environment variables (see tempDirectory)."
+
+    (self ~~ ConcreteClass) ifTrue:[
+	^ ConcreteClass defaultTempDirectoryName
+    ].
+
+    ^ '/tmp'
+
+    "
+     Filename defaultTempDirectoryName           
+    "
+
+    "Modified: 7.9.1995 / 10:48:31 / claus"
+    "Created: 7.3.1996 / 14:51:18 / cg"
+    "Modified: 8.9.1997 / 00:24:53 / cg"
 ! !
 
 !Filename class methodsFor:'misc'!
@@ -4986,7 +4989,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.271 2004-01-14 14:07:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.272 2004-01-26 15:10:32 cg Exp $'
 ! !
 
 Filename initialize!