diff --git a/src/lexer.mll b/src/lexer.mll
index a43cb3893945ee37ffa9616ab58a721050d5e630..7301875138fd7e90355cb913c9d4b18def982280 100644
--- a/src/lexer.mll
+++ b/src/lexer.mll
@@ -245,7 +245,7 @@ rule lexer = parse
                 }
 
 (* une chaine quelconque *)
-        | "\"" ['_' 'A'-'Z' 'a'-'z']  ['A'-'Z' '(' ')' '$' '/' 'a'-'z' '.' '-' '_'] * "\""
+        | "\""   ['A'-'Z' '(' ')' '$' '/' 'a'-'z' '.' '-' '_'] * "\""
             { 
                         let lxm = Lxm.make_string lexbuf in
                           TK_STRING (lxm)