diff --git a/kernel/branches/net/network/tcp_subr.inc b/kernel/branches/net/network/tcp_subr.inc
index 47f5ed3f02..33dd5f4d9f 100644
--- a/kernel/branches/net/network/tcp_subr.inc
+++ b/kernel/branches/net/network/tcp_subr.inc
@@ -190,9 +190,7 @@ TCP_close:
 ;;; TODO: update slow start threshold
 
         call    SOCKET_is_disconnected
-
-        mov     ecx, [eax + SOCKET.Number]
-        call    SOCKET_close
+        call    SOCKET_free
 
         ret