--- rpl/src/formateur.c	2012/04/13 14:12:48	1.48
+++ rpl/src/formateur.c	2013/03/16 20:11:29	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.8
-  Copyright (C) 1989-2012 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.
 
@@ -1815,7 +1815,7 @@ formateur(struct_processus *s_etat_proce
 
 		while(l_element_courant != NULL)
 		{
-			if ((chaine_formatee = formateur(s_etat_processus, 0,
+			if ((chaine_formatee = formateur(s_etat_processus, offset_initial,
 				   	(*l_element_courant).donnee)) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -3522,7 +3522,15 @@ formateur_reel(struct_processus *s_etat_
 		}
 		else if (tampon_entier < ((integer8) 0))
 		{
-			exposant = (long) floor(log10(-tampon_entier));
+			if (tampon_entier != INT64_MIN)
+			{
+				exposant = (long) floor(log10(-tampon_entier));
+			}
+			else
+			{
+				tampon_reel = (real8) tampon_entier;
+				exposant = (long) floor(log10(-tampon_reel));
+			}
 		}
 		else
 		{