--- rpl/src/instructions_c9.c	2023/11/24 09:12:57	1.30
+++ rpl/src/instructions_c9.c	2024/01/17 16:57:12	1.33
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.35
-  Copyright (C) 1989-2023 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.36
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -226,6 +226,8 @@ instruction_clrsock(struct_processus *s_
 
 	if ((*s_objet_argument).type == SCK)
 	{
+		socket = -1;
+
 		l_element_courant = (*s_etat_processus).s_sockets;
 		l_element_precedent = NULL;