--- rpl/src/types.c	2017/07/12 15:43:07	1.88
+++ rpl/src/types.c	2017/07/30 21:59:41	1.89
@@ -3542,20 +3542,23 @@ recherche_type(struct_processus *s_etat_
 
 				while((*ptr) != d_code_fin_chaine)
 				{
-					if ((isalnum((*ptr)) == 0) &&
-							((*ptr) != '_') &&
-							((*ptr) != '$'))
+					if (isalnum(*ptr) != 0)
+					{
+						ptr++;
+					}
+					else if (((*ptr) == '_') || ((*ptr == '$')))
+					{
+						ptr++;
+					}
+					else
 					{
 						liberation(s_etat_processus, s_objet);
 
 						(*s_etat_processus).erreur_execution = d_ex_syntaxe;
 						(*s_etat_processus).traitement_interruptible =
 								registre_interruption;
-
 						return;
 					}
-
-					ptr++;
 				}
 
 				(*s_objet).type = NOM;