--- a/Filename.st	Wed Dec 15 11:27:54 2004 +0100
+++ b/Filename.st	Wed Dec 15 11:30:57 2004 +0100
@@ -669,6 +669,11 @@
     #('STX_TMPDIR' 'ST_TMPDIR' 'TMPDIR' 'TEMPDIR' 'TEMP' 'TMP') do:[:envVar |
         tempDir isNil ifTrue:[
             tempDir := OperatingSystem getEnvironment:envVar.
+            tempDir notNil ifTrue:[
+                tempDir asFilename exists ifFalse:[
+                    tempDir := nil.
+                ].
+            ].
         ].
     ].
     tempDir isNil ifTrue:[
@@ -679,9 +684,10 @@
     "
      Filename tempDirectory           
      Filename tempDirectory pathName   
-     Filename tempDirectory exists   
+     Filename tempDirectory exists    
      Filename tempDirectory isWritable   
      (Filename tempDirectory construct:'foo') makeDirectory   
+     (Filename tempDirectory construct:'foo') remove   
     "
 
     "Modified: 7.9.1995 / 10:48:31 / claus"
@@ -5031,7 +5037,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.282 2004-09-10 13:16:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.283 2004-12-15 10:30:57 penk Exp $'
 ! !
 
 Filename initialize!