diff --git a/cache.mli b/cache.mli
index bfead17f..01049cf8 100644
--- a/cache.mli
+++ b/cache.mli
@@ -72,7 +72,7 @@ module type S2 = sig
     (** Wrap the function with the cache *)
 end
 
-(** {2 Dummy cache (no caching) *)
+(** {2 Dummy cache (no caching)} *)
 
 module Dummy(X : sig type t end) : S with type key = X.t
 
@@ -93,7 +93,7 @@ module Replacing(X : HASH) : S with type key = X.t
 
 module Replacing2(X : HASH)(Y : HASH) : S2 with type key1 = X.t and type key2 = Y.t
 
-(** {2 Hashtables with Least Recently Used eviction policy *)
+(** {2 Hashtables with Least Recently Used eviction policy} *)
 
 module LRU(X : HASH) : S with type key = X.t
 
diff --git a/hashset.mli b/hashset.mli
index f6821655..77c2845d 100644
--- a/hashset.mli
+++ b/hashset.mli
@@ -30,7 +30,7 @@ type 'a t = ('a, unit) PHashtbl.t
 
 val empty : ?max_load:float -> ?eq:('a -> 'a -> bool) ->
             ?hash:('a -> int) -> int -> 'a t
-  (** See {@see PHashtbl.create} *)
+  (** See {!PHashtbl.create} *)
 
 val copy : 'a t -> 'a t
 
diff --git a/pHashtbl.mli b/pHashtbl.mli
index dd07f878..4fc53cb2 100644
--- a/pHashtbl.mli
+++ b/pHashtbl.mli
@@ -42,7 +42,7 @@ and ('a, 'b) bucket =
 val create : ?max_load:float -> ?eq:('a -> 'a -> bool) ->
               ?hash:('a -> int) -> int -> ('a, 'b) t
   (** Create a hashtable.  [max_load] is (number of items / size of table),
-      and must be in ]0, 1[. Functions for equality check and hashing
+      and must be in )0, 1(. Functions for equality check and hashing
       can also be provided. *)
 
 module type Hashable = sig