1 files changed, 4 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index 105e055b180..408a2579ef0 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1524,6 +1524,10 @@ deactivate_process (proc)
       close (inchannel);
       if (outchannel >= 0 && outchannel != inchannel)
         close (outchannel);
+#ifdef SYSV4_PTYS
+      if (!NILP (p->subtty))
+        close (XINT (p->subtty));
+#endif
 #endif
 
       XSET (p->infd, Lisp_Int, -1);