--- rpl/src/instructions_s8.c	2011/06/27 09:05:00	1.29
+++ rpl/src/instructions_s8.c	2011/09/14 14:34:28	1.33
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1470,11 +1470,6 @@ instruction_stop(struct_processus *s_eta
 
 	struct_objet				*s_objet;
 
-	struct timespec				attente;
-
-	attente.tv_sec = 0;
-	attente.tv_nsec = GRANULARITE_us * 1000;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -1520,8 +1515,8 @@ instruction_stop(struct_processus *s_eta
 		if ((*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 				.processus_detache == d_vrai)
 		{
-			kill((*(*((struct_processus_fils *) (*s_objet).objet)).thread).pid,
-					SIGFSTOP);
+			envoi_signal_processus((*(*((struct_processus_fils *)
+					(*s_objet).objet)).thread).pid, rpl_sigstop);
 		}
 		else
 		{
@@ -1581,8 +1576,8 @@ instruction_stop(struct_processus *s_eta
 					if ((*(*((struct_processus_fils *)
 							(*s_objet).objet)).thread).thread_actif == d_vrai)
 					{
-						pthread_kill((*(*((struct_processus_fils *)
-								(*s_objet).objet)).thread).tid, SIGFSTOP);
+						envoi_signal_thread((*(*((struct_processus_fils *)
+								(*s_objet).objet)).thread).tid, rpl_sigstop);
 					}
 
 					if (pthread_mutex_unlock(&((*(*((struct_processus_fils *)