--- libaitio/src/sock.c	2013/12/12 21:17:53	1.11.2.3
+++ libaitio/src/sock.c	2013/12/12 21:21:19	1.11.2.4
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: sock.c,v 1.11.2.3 2013/12/12 21:17:53 misho Exp $
+* $Id: sock.c,v 1.11.2.4 2013/12/12 21:21:19 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -64,6 +64,7 @@ io_closeClient(sched_task_t *task)
 	if (s->sock_prog) {
 		io_progDetach(s->sock_prog, cli->cli_pty);
 		cli->cli_pty ^= cli->cli_pty;
+		io_progCheck(s->sock_prog, 42);
 	}
 
 	if (s->sock_type == SOCK_STREAM) {