diff --git a/src/lexer.mll b/src/lexer.mll
index 9be7c57a865460b20494f21ba10e98b22e457e52..c6a846b9af8c367f12834e02c70b144d9d9d3016 100644
--- a/src/lexer.mll
+++ b/src/lexer.mll
@@ -219,9 +219,9 @@ rule lexer = parse
 	| "<"  { TK_LT ( Lxm.make lexbuf ) }
 	| ">"  { TK_GT ( Lxm.make lexbuf ) }
 (* identificateur pointé *)
-	| ['A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
+	| ['_' 'A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
 		':' ':'
-	  ['A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
+	  ['_' 'A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
 		{
 			let lxm = Lxm.make lexbuf in
 			TK_LONGIDENT (lxm)
@@ -236,7 +236,7 @@ rule lexer = parse
 	|  '.' chiffres (exposant)? { TK_RCONST (Lxm.make lexbuf ) }
 
 (* mot-clé ou identificateur *)
-	| ['A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
+	| ['_' 'A'-'Z' 'a'-'z'] ['A'-'Z' 'a'-'z' '\'' '_' '0'-'9'] *
 		{
 			let lxm = Lxm.make lexbuf in
 			let x = is_a_keyword ( Lxm.str lxm ) in
diff --git a/src/test/Makefile b/src/test/Makefile
index eeeaedbd98d84c773b57e337fc4cc9b73daa32c6..a77e031c99e06d3822b2b180327a98025827b8a2 100644
--- a/src/test/Makefile
+++ b/src/test/Makefile
@@ -55,7 +55,7 @@ test:
 	echo " " >> test.res; echo "====> $(LC) pfs.lus" >> test.res
 	$(LC) pfs.lus >> test.res 2>&1 || true
 	\
-	diff -u test.res.exp test.res > test.diff || cat test.diff ; echo "cf test.diff"
+	diff -u test.res.exp test.res > test.diff || (cat test.diff ; echo "cf test.diff")
 
 utest:
 	cp test.res test.res.exp 
diff --git a/src/test/test.res b/src/test/test.res
index c95b4887f1a1ce5c4dedc9c3b3e6dea59a73316d..0eac2a13cfae67f05452de178ac677bf8e3065d8 100644
--- a/src/test/test.res
+++ b/src/test/test.res
@@ -634,5 +634,5 @@ End of Syntax table dump. 
 		const DELTA = 0.500000
  
 ====> ../lus2lic -vl 3  pfs.lus
-Error. '_' (file:pfs.lus, line:39, col:7 to 7):
+Error. '[' (file:pfs.lus, line:40, col:18 to 18):
 ---> syntax error
diff --git a/src/test/test.res.exp b/src/test/test.res.exp
index c95b4887f1a1ce5c4dedc9c3b3e6dea59a73316d..0eac2a13cfae67f05452de178ac677bf8e3065d8 100644
--- a/src/test/test.res.exp
+++ b/src/test/test.res.exp
@@ -634,5 +634,5 @@ End of Syntax table dump. 
 		const DELTA = 0.500000
  
 ====> ../lus2lic -vl 3  pfs.lus
-Error. '_' (file:pfs.lus, line:39, col:7 to 7):
+Error. '[' (file:pfs.lus, line:40, col:18 to 18):
 ---> syntax error