--- a/Filename.st	Wed Jan 23 11:46:42 2008 +0100
+++ b/Filename.st	Wed Jan 23 14:59:00 2008 +0100
@@ -723,7 +723,7 @@
             ].
         ].
         tempDir isNil ifTrue:[
-            tempDir := self named:self defaultTempDirectoryName
+            tempDir := self named:(self defaultTempDirectoryName pathName)
         ].
         TempDirectory := tempDir construct:'stx_tmp'.
     ].
@@ -5538,7 +5538,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.323 2008-01-10 17:15:57 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.324 2008-01-23 13:59:00 cg Exp $'
 ! !
 
 Filename initialize!