--- rpl/src/instructions_o1.c	2010/03/09 10:18:47	1.8
+++ rpl/src/instructions_o1.c	2010/04/17 18:57:35	1.10
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.13
+  RPL/2 (R) version 4.0.14
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -4081,6 +4081,10 @@ instruction_open(struct_processus *s_eta
 					strcpy((*((struct_socket *) (*s_objet_resultat).objet)).
 							type, "ROBUST DATAGRAM");
 					break;
+
+				default :
+					BUG(1, printf("type_socket=%c\n", type_socket));
+					break;
 			}
 
 			if ((protection != 'N') && ((type_socket != 'S') &&