--- rpl/src/interface_tex.c	2018/05/30 09:27:38	1.68
+++ rpl/src/interface_tex.c	2023/08/07 17:42:59	1.77
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.29
-  Copyright (C) 1989-2018 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.35
+  Copyright (C) 1989-2023 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));
 								}
 							}