diff --git a/kernel/branches/net/network/tcp_subr.inc b/kernel/branches/net/network/tcp_subr.inc
index 169e7d472a..47f5ed3f02 100644
--- a/kernel/branches/net/network/tcp_subr.inc
+++ b/kernel/branches/net/network/tcp_subr.inc
@@ -191,6 +191,9 @@ TCP_close:
 
         call    SOCKET_is_disconnected
 
+        mov     ecx, [eax + SOCKET.Number]
+        call    SOCKET_close
+
         ret