--- rpl/src/instructions_r5.c	2010/03/04 10:17:53	1.4
+++ rpl/src/instructions_r5.c	2011/04/14 08:46:46	1.19.2.2
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.0.23
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -816,8 +816,8 @@ instruction_row_plus(struct_processus *s
 			return;
 		}
 
-		if (position == (integer8) (*((struct_matrice *)
-				(*s_objet_argument_3).objet)).nombre_lignes)
+		if (position != ((integer8) (*((struct_matrice *)
+				(*s_objet_argument_3).objet)).nombre_lignes + 1))
 		{
 			for(j = i = 0; i < (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes; i++)
@@ -853,6 +853,8 @@ instruction_row_plus(struct_processus *s
 	}
 	else
 	{
+		free((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau[0]);
+
 		if (((*((struct_matrice *) (*s_objet_argument_3).objet)).tableau
 				= malloc(sizeof(void *))) == NULL)
 		{