--- a/Filename.st	Fri Oct 07 15:57:55 2011 +0200
+++ b/Filename.st	Fri Oct 07 18:36:52 2011 +0200
@@ -794,6 +794,14 @@
         ].
         tempDir isNil ifTrue:[
             tempDir := self named:(self defaultTempDirectoryName pathName)
+            tempDir exists ifFalse:[
+                tempDir
+                    makeDirectory; 
+                    addAccessRights:#(readUser readGroup readOthers 
+                                      writeUser writeGroup writeOthers
+                                      executeUser executeGroup executeOthers
+                                      removeOnlyByOwner).
+            ].
         ].
         TempDirectory := DefaultTempDirectory := tempDir construct:'stx_tmp'.
     ].
@@ -822,7 +830,7 @@
     "
 
     "Created: / 07-03-1996 / 14:51:18 / cg"
-    "Modified: / 29-08-2006 / 12:57:16 / cg"
+    "Modified: / 07-10-2011 / 18:36:43 / cg"
 !
 
 tempDirectory:aFilename
@@ -5837,11 +5845,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.367 2011-09-07 10:22:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.368 2011-10-07 16:36:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.367 2011-09-07 10:22:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.368 2011-10-07 16:36:52 cg Exp $'
 ! !
 
 Filename initialize!