--- rpl/src/interface_tex.c	2018/05/30 09:27:38	1.68
+++ rpl/src/interface_tex.c	2018/12/24 15:56:35	1.70
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.29
+  RPL/2 (R) version 4.1.30
   Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1562,13 +1562,11 @@ formateur_elementaire_tex(struct_process
 
 								if (niveau == 0)
 								{
-									sprintf((unsigned char *) (*s_sous_objet_1)
-											.objet, "%s", &(((unsigned char *) 
-											(*s_sous_objet_1).objet)[1]));
-									((unsigned char *) (*s_sous_objet_1).objet)
-											[strlen((unsigned char *)
-											(*s_sous_objet_1).objet) - 1] =
-											d_code_fin_chaine;
+									memmove(((unsigned char *) (*s_sous_objet_1)
+											.objet), ((unsigned char *)
+											(*s_sous_objet_1).objet) + 1,
+											strlen((unsigned char *)
+											(*s_sous_objet_1).objet));
 								}
 							}