diff --git a/extra/io/files/tmp/tmp.factor b/extra/io/files/tmp/tmp.factor
index da1deec9a7..a859cfdc91 100644
--- a/extra/io/files/tmp/tmp.factor
+++ b/extra/io/files/tmp/tmp.factor
@@ -7,7 +7,7 @@ IN: io.files.tmp
     "tmp" resource-path dup directory? [ dup make-directory ] unless ;
 
 : touch ( filename -- )
-    <file-writer> stream-close ;
+    <file-writer> dispose ;
 
 : tmpfile ( extension -- filename )
     16 random-alphanumeric-string over append