--- rpl/src/instructions_p4.c	2012/12/19 09:58:26	1.43
+++ rpl/src/instructions_p4.c	2013/03/16 11:31:41	1.46
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1289,7 +1289,7 @@ instruction_perm(struct_processus *s_eta
 				return;
 			}
 
-			if (fabs(c - floor(c)) < fabs(ceil(c) - c))
+			if (abs(c - floor(c)) < fabs(ceil(c) - c))
 			{
 				(*((integer8 *) (*s_objet_resultat).objet)) =
 						(integer8) floor(c);