--- rpl/src/formateur.c	2011/11/17 22:21:16	1.41
+++ rpl/src/formateur.c	2013/02/27 17:11:40	1.55
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -75,7 +75,6 @@ formateur(struct_processus *s_etat_proce
 	unsigned long				i;
 	unsigned long				j;
 	unsigned long				k;
-	unsigned long				longueur_binaire;
 	unsigned long				longueur_courante;
 	unsigned long				longueur_decimale_courante;
 	unsigned long				*longueurs_maximales;
@@ -94,7 +93,6 @@ formateur(struct_processus *s_etat_proce
 
 	strcpy(base, " ");
 
-	longueur_binaire = 0;
 	masque_binaire = 0;
 
 	if ((*s_objet).type == ADR)
@@ -1580,7 +1578,6 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		longueur_binaire = longueur_entiers_binaires(s_etat_processus);
 		masque_binaire = masque_entiers_binaires(s_etat_processus);
 
 		if ((test_cfsf(s_etat_processus, 43) == d_faux) &&
@@ -2996,8 +2993,9 @@ formateur(struct_processus *s_etat_proce
 	}
 	else if ((*s_objet).type == MTX)
 	{
-		if (alsprintf(&chaine, "Mutex $ %016lX", (unsigned long)
-				&((*((struct_mutex *) (*s_objet).objet)).mutex)) < 0)
+		if (alsprintf(&chaine, "Mutex $ %016lX owned by $ %016lX",
+				(unsigned long) &((*((struct_mutex *) (*s_objet).objet)).mutex),
+				(unsigned long) (*((struct_mutex *) (*s_objet).objet)).tid) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);