--- rpl/src/instructions_h1.c	2010/08/06 15:33:00	1.12
+++ rpl/src/instructions_h1.c	2010/08/26 19:07:38	1.14
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
+  RPL/2 (R) version 4.0.19
   Copyright (C) 1989-2010 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
 		 */