Hello,

Please, when the following small source is passed to ocamldoc (ocamldoc 
-pp camlp4r -html foo.ml), the comment "another type" is not asigned to 
type "bar", but joined to the comment of B constructor in type "foo".

I've tried lots of variations, adding blank lines, empty comments, end 
comments, ... without success.

Please, knows someone what is wrong on it?

Thanks a lot.

foo.ml:
=======
(** a module *)

(** a type *)
type foo =
[ A (** a constructor *)
| B (** another constructor *)
];

(** another type *)
type bar =
[ C (** a constructor *)
| D (** another constructor *)
];