--- rpl/src/instructions_o1.c	2012/05/21 17:25:44	1.55
+++ rpl/src/instructions_o1.c	2012/06/21 16:07:25	1.56
@@ -2731,6 +2731,14 @@ instruction_open(struct_processus *s_eta
 			l_element_courant = (*l_element_courant).suivant;
 		}
 
+		// Si aucun paramètre n'est discriminant, l'instruction ouvre
+		// par défaut un fichier.
+
+		if (type_arguments == ' ')
+		{
+			type_arguments = 'F';
+		}
+
 		if (type_arguments == 'F')
 		{
 			/*