--- rpl/src/types.c	2010/07/02 08:41:29	1.17
+++ rpl/src/types.c	2010/11/09 10:47:43	1.23
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.17
+  RPL/2 (R) version 4.0.20
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -3377,6 +3377,24 @@ recherche_type(struct_processus *s_etat_
 			if ((drapeau_valeur_reelle == d_faux) &&
 					(drapeau_valeur_entiere == d_faux))
 			{
+				ptr = (*s_etat_processus).instruction_courante;
+
+				while((*ptr) != d_code_fin_chaine)
+				{
+					if (isalnum((*ptr)) == 0)
+					{
+						free(s_objet);
+
+						(*s_etat_processus).erreur_execution = d_ex_syntaxe;
+						(*s_etat_processus).traitement_interruptible =
+								registre_interruption;
+
+						return;
+					}
+
+					ptr++;
+				}
+
 				(*s_objet).type = NOM;
 
 				element = malloc(sizeof(struct_nom));