diff --git a/src/plugins/value/api/general_requests.ml b/src/plugins/value/api/general_requests.ml
index 982d7686b4e0b060617ef63fb8888ea1ed4642ce..2a225d40834aae737916ec85e2f06858125bd80c 100644
--- a/src/plugins/value/api/general_requests.ml
+++ b/src/plugins/value/api/general_requests.ml
@@ -32,8 +32,7 @@ let package =
     ()
 
 module ComputationState = struct
-  open Analysis
-  type t = computation_state
+  type t = Analysis.computation_state
   let jtype =
     Data.declare ~package
       ~name:"computationStateType"
@@ -334,7 +333,7 @@ struct
   let jtype =
     Data.declare ~package
       ~name:"statusesEntry"
-      ~descr:(Markdown.plain "Statuses count.Å“")
+      ~descr:(Markdown.plain "Statuses count.")
       Package.(Jrecord [
           "valid",Jnumber ;
           "unknown",Jnumber ;
diff --git a/src/plugins/value/engine/analysis.mli b/src/plugins/value/engine/analysis.mli
index 055917d6cd49641525268653b0d5f4a66344765d..2a6e647e5fc99a01f8172413e7cfa25721fb7b86 100644
--- a/src/plugins/value/engine/analysis.mli
+++ b/src/plugins/value/engine/analysis.mli
@@ -80,7 +80,7 @@ val current_computation_state : unit -> computation_state
 val register_computation_hook: ?on:computation_state ->
   (computation_state -> unit) -> unit
 (** Registers a hook that will be called each time the analysis starts or
-    finishes. If [on] is given, the hook will only be called when the
+    finishes. If [on] is given, the hook will only be called when the
     analysis switches to this specific state. *)
 
 val force_compute : unit -> unit