diff --git a/theories/proofmode/ltac_tactics.v b/theories/proofmode/ltac_tactics.v
index 81e03f9a56d3ff0eaf33933bc8800bd5ab21b900..f90abdcf5bab6dddd119612c6ae7f7428f220525 100644
--- a/theories/proofmode/ltac_tactics.v
+++ b/theories/proofmode/ltac_tactics.v
@@ -573,6 +573,7 @@ Local Tactic Notation "iForallRevert" ident(x) :=
       | context [x] => fail 2 "iRevert:" x "is used in hypothesis" H
       end) in
   iStartProof;
+  first [let _ := type of x in idtac|fail 1 "iRevert:" x "not in scope"];
   let A := type of x in
   lazymatch type of A with
   | Prop => revert x; first [apply tac_pure_revert|err x]