diff --git a/core/io/io.factor b/core/io/io.factor
index e074135e8c..085f8f3e70 100644
--- a/core/io/io.factor
+++ b/core/io/io.factor
@@ -80,7 +80,7 @@ SYMBOL: error-stream
 
 : with-streams ( input output quot -- )
     [ [ with-streams* ] 3curry ]
-    [ [ drop dispose dispose ] 3curry ] 3bi
+    [ [ [ drop [ &dispose drop ] bi@ ] 3curry ] with-destructors ] 3bi
     [ ] cleanup ; inline
 
 : print ( str -- ) output-stream get stream-print ;