diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 78f1612cb8..7cdf41674d 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -265,12 +265,10 @@ DEFER: copy-tree-into
     ?resource-path exists? ;
 
 : temp-directory ( -- path )
-    "temp" resource-path
-    dup exists? not
-      [ dup make-directory ]
-    when ;
+    "temp" resource-path dup make-directories ;
 
-: temp-file ( name -- path ) temp-directory prepend-path ;
+: temp-file ( name -- path )
+    temp-directory prepend-path ;
 
 M: object normalize-pathname ( path -- path' )
     current-directory get prepend-path ;