*** ocaml-3.12.0-orig/typing/unused_var.ml	2010-04-08 05:58:41.000000000 +0200
--- ocaml-3.12.0/typing/unused_var.ml	2011-07-03 10:26:16.885683000 +0200
***************
*** 106,110 ****
    | Pstr_class cdl -> List.iter (class_declaration ppf tbl) cdl;
    | Pstr_class_type _ -> ()
!   | Pstr_include _ -> ()

  and expression ppf tbl e =
--- 106,110 ----
    | Pstr_class cdl -> List.iter (class_declaration ppf tbl) cdl;
    | Pstr_class_type _ -> ()
!   | Pstr_include me -> module_expr ppf tbl me

  and expression ppf tbl e =