--- rpl/src/instructions_s1.c	2020/11/01 08:51:41	1.116
+++ rpl/src/instructions_s1.c	2022/06/09 12:40:57	1.119
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.32
-  Copyright (C) 1989-2020 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.33
+  Copyright (C) 1989-2021 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,6 @@
 */
 
 
-#define DEBUG_ERREURS
 #include "rpl-conv.h"
 
 
@@ -3667,13 +3666,14 @@ instruction_syseval(struct_processus *s_
 						.instruction_courante;
 
 				/*
-				 * S'il y a des guillemets en début de chaîne, il y en
-				 * a aussi à la fin de la chaîne et on les ôte. Les
-				 * guillements intermédiaires sont protégés par une
+				 * S'il y a des guillemets ou une apostrophe en début de
+				 * chaîne, il y en * a aussi à la fin de la chaîne et on les
+				 * ôte. Les guillements intermédiaires sont protégés par une
 				 * séquence d'échappement qui est enlevée.
 				 */
 
-				if ((*s_etat_processus).instruction_courante[0] == '"')
+				if (((*s_etat_processus).instruction_courante[0] == '"') ||
+						((*s_etat_processus).instruction_courante[0] == '\''))
 				{
 					if (strlen((*s_etat_processus).instruction_courante) >= 2)
 					{
@@ -3805,7 +3805,6 @@ instruction_syseval(struct_processus *s_
 			(*s_etat_processus).erreur_systeme = d_es_signal;
 			return;
 		}
-instruction_clmf(s_etat_processus);
 
 		verrouillage_threads_concurrents(s_etat_processus);