--- a/Filename.st	Mon May 28 13:47:53 2007 +0200
+++ b/Filename.st	Mon May 28 13:51:17 2007 +0200
@@ -758,6 +758,13 @@
         TempDirectory := tempDir construct:'stx_tmp'.
         TempDirectory makeDirectory.
     ].
+
+    "Make sure, that the TempDirectory exists - it might have been removed
+     by a cleanup (cron) job"
+
+    TempDirectory exists ifFalse:[
+        TempDirectory makeDirectory.
+    ].
     ^ TempDirectory
 
     "
@@ -5487,7 +5494,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.313 2007-05-16 11:24:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.314 2007-05-28 11:51:17 stefan Exp $'
 ! !
 
 Filename initialize!