diff --git a/basis/io/pipes/pipes.factor b/basis/io/pipes/pipes.factor
index 62499f5d4f..f10ccd1e64 100644
--- a/basis/io/pipes/pipes.factor
+++ b/basis/io/pipes/pipes.factor
@@ -9,7 +9,10 @@ IN: io.pipes
 TUPLE: pipe in out ;
 
 M: pipe dispose ( pipe -- )
-    [ in>> dispose ] [ out>> dispose ] bi ;
+    [
+        [ in>> &dispose drop ]
+        [ out>> &dispose drop ] bi
+    ] with-destructors ;
 
 HOOK: (pipe) io-backend ( -- pipe )