duplex-stream stream-close was broken

diff --git a/library/io/duplex-stream.factor b/library/io/duplex-stream.factor
index 924ed3db77fb498cd73e0772b5e8b626a4551137..e429eb967d46232dd970d72a2e6d4794b1d77fb7 100644 (file)
--- 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