--- rpl/src/instructions_n1.c	2010/04/21 13:45:48	1.7
+++ rpl/src/instructions_n1.c	2010/05/22 21:45:50	1.8
@@ -756,11 +756,14 @@ instruction_not(struct_processus *s_etat
 
 	else if ((*s_objet_argument).type == BIN)
 	{
-		(*((logical8 *) (*s_objet_argument).objet)) =
-				~(*((logical8 *) (*s_objet_argument).objet));
+		if ((s_objet_resultat = allocation(s_etat_processus, BIN)) == NULL)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
 
-		s_objet_resultat = s_objet_argument;
-		s_objet_argument = NULL;
+		(*((logical8 *) (*s_objet_resultat).objet)) =
+				~(*((logical8 *) (*s_objet_argument).objet));
 	}
 
 /*