  
 Index: typing/oprint.ml
 ===================================================================
---- typing/oprint.ml	(revision 13278)
+--- typing/oprint.ml	(revision 13285)
 +++ typing/oprint.ml	(working copy)
 @@ -343,6 +343,8 @@
  let rec print_out_module_type ppf =

   | Omty_functor (name, mty_arg, mty_res) ->
       fprintf ppf "@[<2>functor@ (%s : %a) ->@ %a@]" name
         print_out_module_type mty_arg print_out_module_type mty_res
Index: typing/mtype.ml
===================================================================
--- typing/mtype.ml	(revision 13278)
+++ typing/mtype.ml	(working copy)
@@ -34,7 +34,8 @@
   match scrape env mty with

Index: parsing/parser.mly
===================================================================
--- parsing/parser.mly	(revision 13285)
+++ parsing/parser.mly	(working copy)
@@ -532,8 +532,12 @@
       { unclosed "struct" 1 "end" 3 }
