diff --git a/index/index.ml b/index/index.ml
index cca66b13..9f3bce5a 100644
--- a/index/index.ml
+++ b/index/index.ml
@@ -21,7 +21,7 @@ let index_odoc_index_file register filename =
   | Error (`Msg msg) -> Format.printf "FILE ERROR %s: %s@." filename msg
   | Ok file ->
     (match Odoc_odoc.Odoc_file.load_index file with
-     | Ok entries -> Odoc_model.Paths.Identifier.Hashtbl.Any.iter register (snd entries)
+     | Ok index -> Odoc_model.Paths.Identifier.Hashtbl.Any.iter register index.entries
      | Error (`Msg msg) -> Format.printf "Odoc warning or error %s: %s@." filename msg)
 
 let main