diff --git a/compiler/minils/main/mlsc.ml b/compiler/minils/main/mlsc.ml
index c8f9782..dfe894b 100644
--- a/compiler/minils/main/mlsc.ml
+++ b/compiler/minils/main/mlsc.ml
@@ -22,7 +22,7 @@ let parse parsing_fun lexing_fun lexbuf =
   with
     | Mls_lexer.Lexical_error(err, pos1, pos2) ->
         lexical_error err (Loc(pos1, pos2))
-    | Mls_Parser.Error ->
+    | Mls_parser.Error ->
         let pos1 = Lexing.lexeme_start lexbuf
         and pos2 = Lexing.lexeme_end lexbuf in
         let l = Loc(pos1,pos2) in