--- rpl/src/gestion_objets.c	2018/12/21 10:56:16	1.139
+++ rpl/src/gestion_objets.c	2018/12/21 13:36:38	1.140
@@ -1317,7 +1317,7 @@ liberation(struct_processus *s_etat_proc
 			}
 			else
 			{
-				free((real8 *) ((*s_objet).objet));
+				free((struct_record *) ((*s_objet).objet));
 			}
 
 			break;
@@ -2484,6 +2484,46 @@ copie_objet(struct_processus *s_etat_pro
 			break;
 		}
 
+		case REC :
+		{
+			if (type != 'P')
+			{
+				if ((s_nouvel_objet = allocation(s_etat_processus, REC))
+						== NULL)
+				{
+					return(NULL);
+				}
+
+				if (((*((struct_record *) (*s_nouvel_objet).objet)).noms =
+						copie_objet(s_etat_processus, (*((struct_record *)
+						(*s_objet).objet)).noms, 'P')) == NULL)
+				{
+					return(NULL);
+				}
+
+				if (((*((struct_record *) (*s_nouvel_objet).objet)).donnees =
+						copie_objet(s_etat_processus, (*((struct_record *)
+						(*s_objet).objet)).donnees, type)) == NULL)
+				{
+					return(NULL);
+				}
+			}
+			else
+			{
+				incrementation_atomique(s_objet);
+				(*((struct_record *) (*s_objet).objet)).noms =
+						copie_objet(s_etat_processus, (*((struct_record *)
+						(*s_objet).objet)).noms, 'P');
+				(*((struct_record *) (*s_objet).objet)).donnees =
+						copie_objet(s_etat_processus, (*((struct_record *)
+						(*s_objet).objet)).donnees, 'P');
+
+				return(s_objet);
+			}
+
+			break;
+		}
+
 		case REL :
 		{
 			if (type != 'O')