From 21fba39b80d07db23bb2e32d570b17816998297c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 23 Jun 2005 19:55:17 +0000
Subject: [PATCH] duplex-stream stream-close was broken

---
 library/io/duplex-stream.factor | 2 ++
 1 file changed, 2 insertions(+)

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