diff --git a/examples/using_dune/lib/values/values_in_submodules.ml b/examples/using_dune/lib/values/values_in_submodules.ml
index 958df8df..b8e0bd78 100644
--- a/examples/using_dune/lib/values/values_in_submodules.ml
+++ b/examples/using_dune/lib/values/values_in_submodules.ml
@@ -16,6 +16,10 @@ module Exported = struct
 
 end
 
+module _ = struct
+  let unused_int = 42
+end
+
 let () = ignore Unexported.used_int
 
 let () = ignore Exported.Private.used_int
diff --git a/src/deadCode.ml b/src/deadCode.ml
index 06c65a45..69e0984d 100644
--- a/src/deadCode.ml
+++ b/src/deadCode.ml
@@ -208,7 +208,7 @@ let structure_item super self i =
   end;
   let r = super.Tast_mapper.structure_item self i in
   begin match i.str_desc with
-  | Tstr_module _ -> mods := List.tl !mods
+  | Tstr_module {mb_name = {txt = Some _; _}; _} -> mods := List.tl !mods
   | _ -> ()
   end;
   r