diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor
index 0bdb2978ee..6e009d84d5 100644
--- a/basis/db/tuples/tuples.factor
+++ b/basis/db/tuples/tuples.factor
@@ -46,7 +46,7 @@ GENERIC: eval-generator ( singleton -- object )
 
 : with-disposals ( object quotation -- )
     over sequence? [
-        [ with-disposal ] curry each
+        over [ dispose-each ] curry [ ] cleanup
     ] [
         with-disposal
     ] if ; inline