--- rpl/src/types.c	2017/06/30 13:11:26	1.86
+++ rpl/src/types.c	2018/05/30 09:27:39	1.91
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
-  Copyright (C) 1989-2017 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -56,8 +56,7 @@ recherche_type(struct_processus *s_etat_
 	integer8					profondeur_initiale;
 	integer8					sauvegarde_niveau_courant;
 	integer8					sauvegarde_longueur_definitions_chainees;
-	integer8					(*__type_new)(struct_processus
-										*s_etat_processus, void **arg);
+	integer8					(*__type_new)(struct_processus *, void **);
 
 	struct_liste_chainee		*l_base_liste_fonctions;
 	struct_liste_chainee		*l_base_liste_decomposition;
@@ -3543,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;