Merge PR #10215: Refine typing of vernacular commands

Reviewed-by: SkySkimmer
Ack-by: ejgallego
Ack-by: gares

1 files changed, 1 insertions, 0 deletions

diff --git a/ide/idetop.ml b/ide/idetop.ml
index 970d7cf650..90bd2f314d 100644
--- a/ide/idetop.ml
+++ b/ide/idetop.ml
@@ -340,6 +340,7 @@ let import_search_constraint = function
 
 let search flags =
   let pstate = Vernacstate.Proof_global.get () in
+  let pstate = Option.map Proof_global.get_current_pstate pstate in
   List.map export_coq_object (Search.interface_search ?pstate (
     List.map (fun (c, b) -> (import_search_constraint c, b)) flags)
   )