--- rpl/src/instructions_a5.c	2013/03/20 17:11:44	1.43
+++ rpl/src/instructions_a5.c	2013/04/05 13:07:20	1.47
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
+  RPL/2 (R) version 4.1.14
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -43,6 +43,8 @@ instruction_alarm(struct_processus *s_et
 	int							code_retour;
 	int							erreur;
 
+	integer8					nombre_elements;
+
 	logical1					specification_date;
 
 	struct_liste_chainee		*l_element_courant;
@@ -63,8 +65,6 @@ instruction_alarm(struct_processus *s_et
 
 	time_t						alarme;
 
-	unsigned long				nombre_elements;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -215,7 +215,7 @@ instruction_alarm(struct_processus *s_et
 			s_time_alarme.tm_year = (*s_time_actuel).tm_year;
 		}
 
-		s_time_alarme.tm_isdst = 0;
+		s_time_alarme.tm_isdst = -1;
 		s_time_registre = s_time_alarme;
 		alarme = mktime(&s_time_alarme);
 
@@ -249,7 +249,7 @@ instruction_alarm(struct_processus *s_et
 		}
 
 		attente.tv_nsec = (long) ((duree - (double) (attente.tv_sec =
-				(__time_t) floor(duree))) * 1000000000);
+				(time_t) floor(duree))) * 1000000000);
 
 		if ((*s_etat_processus).profilage == d_vrai)
 		{