--- rpl/src/instructions_r4.c	2023/11/26 10:54:21	1.119
+++ rpl/src/instructions_r4.c	2024/01/17 16:57:15	1.122
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.35
-  Copyright (C) 1989-2023 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.36
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -3723,13 +3723,21 @@ instruction_read(struct_processus *s_eta
 
 			for(i = 0; i < longueur_effective; i++)
 			{
-				if (isprint(tampon_lecture[i]) != 0)
+				if (isprint(tampon_lecture[i]) == 0)
 				{
 					longueur_enregistrement += 4;
 				}
 				else
 				{
-					longueur_enregistrement++;
+					if ((tampon_lecture[i] == '"') ||
+							(tampon_lecture[i] == '"'))
+					{
+						longueur_enregistrement += 2;
+					}
+					else
+					{
+						longueur_enregistrement++;
+					}
 				}
 			}
 
@@ -3756,8 +3764,19 @@ instruction_read(struct_processus *s_eta
 			{
 				if (isprint(tampon_lecture[i]) != 0)
 				{
-					(*ptr) = tampon_lecture[i];
-					ptr++;
+					if ((tampon_lecture[i] == '"') ||
+							(tampon_lecture[i] == '"'))
+					{
+						(*ptr) = '\\';
+						ptr++;
+						(*ptr) = tampon_lecture[i];
+						ptr++;
+					}
+					else
+					{
+						(*ptr) = tampon_lecture[i];
+						ptr++;
+					}
 				}
 				else
 				{