Force le renommage dans bad_ind_arguments

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@289 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 1 deletions

diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml
index 3df7d1d0f..8c2b61eb4 100644
--- a/toplevel/himsg.ml
+++ b/toplevel/himsg.ml
@@ -359,7 +359,7 @@ let str_of_nth n =
 
 let error_bad_ind_parameters k lna c n v1 v2  =
   let env = assumptions_for_print lna in
-  let pc = gentermpr k env c in
+  let pc = gentermpr_at_top k env c in
   let pv1 = gentermpr k env v1 in
   let pv2 = gentermpr k env v2 in
   [< 'sTR ("The "^(str_of_nth n)^" argument of "); pv2; 'bRK(1,1);