--- rpl/src/instructions_s10.c	2012/05/20 17:28:26	1.58
+++ rpl/src/instructions_s10.c	2012/08/22 10:47:17	1.61
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.8
+  RPL/2 (R) version 4.1.10
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1292,8 +1292,8 @@ instruction_smphrtrydecr(struct_processu
 
 			partie_entiere = floor((*((real8 *) (*s_objet_argument_1).objet)));
 			horodatage.tv_sec += partie_entiere;
-			horodatage.tv_usec += (*((real8 *) (*s_objet_argument_1).objet))
-					- partie_entiere;
+			horodatage.tv_usec += ((suseconds_t) ((*((real8 *)
+					(*s_objet_argument_1).objet)) - partie_entiere)) * 1000000;
 
 			if (horodatage.tv_usec > 1000000)
 			{