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

                 try
                   Mtype.nondep_supertype
                     (Env.add_module param arg.mod_type env) param mty_res
@@ -1446,3 +1453,5 @@
         "The type %a in this module cannot be exported.@ " longident lid;
       fprintf ppf
         "Its type contains local dependencies:@ %a" type_expr ty

         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
