--- rpl/src/instructions_f3.c	2010/04/21 13:45:47	1.8
+++ rpl/src/instructions_f3.c	2010/05/25 18:09:44	1.12
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.15
+  RPL/2 (R) version 4.0.16
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1807,13 +1807,25 @@ instruction_fuse(struct_processus *s_eta
 		return;
 	}
 
+#	ifdef DEBUG_MEMOIRE
+	debug_memoire_verrouillage();
+#	endif
+
 	if (pthread_create(&(*s_etat_processus).thread_fusible, &attributs, 
 			fusible, s_etat_processus) != 0)
 	{
+#		ifdef DEBUG_MEMOIRE
+		debug_memoire_deverrouillage();
+#		endif
+
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 	
+#	ifdef DEBUG_MEMOIRE
+	debug_memoire_deverrouillage();
+#	endif
+
 	if (pthread_attr_destroy(&attributs) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;