diff --git a/basis/io/ports/ports.factor b/basis/io/ports/ports.factor
index 631f491b18..006e0e7881 100755
--- a/basis/io/ports/ports.factor
+++ b/basis/io/ports/ports.factor
@@ -135,9 +135,9 @@ M: output-port dispose*
     [
         {
             [ handle>> &dispose drop ]
+            [ buffer>> &dispose drop ]
             [ port-flush ]
             [ handle>> shutdown ]
-            [ buffer>> dispose ]
         } cleave
     ] with-destructors ;