diff --git a/library/io/duplex-stream.factor b/library/io/duplex-stream.factor
index 924ed3db77..e429eb967d 100644
--- a/library/io/duplex-stream.factor
+++ b/library/io/duplex-stream.factor
@@ -24,6 +24,8 @@ M: duplex-stream stream-write-attr
     duplex-stream-out stream-write-attr ;
 
 M: duplex-stream stream-close
+    dup
+    duplex-stream-in stream-close
     duplex-stream-out stream-close ;
 
 M: duplex-stream set-timeout