--- rpl/src/instructions_h1.c	2010/08/06 15:33:00	1.12
+++ rpl/src/instructions_h1.c	2011/01/03 12:08:06	1.16
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.0.20
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1027,14 +1027,14 @@ instruction_help(struct_processus *s_eta
 
 	while((fonction = readline("HELP> ")) != NULL)
 	{
-		funlockfile(stdin);
-		funlockfile(stdout);
-
 		if (strcmp(fonction, "") == 0)
 		{
 			break;
 		}
 
+		funlockfile(stdin);
+		funlockfile(stdout);
+
 		/*
 		 * Élimination des blancs précédents l'instruction
 		 */