Fix bug #1940: uncaught exception when searching for a type class.

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

1 files changed, 2 insertions, 2 deletions

diff --git a/toplevel/classes.ml b/toplevel/classes.ml
index bf9ee1269..c7ba7fa44 100644
--- a/toplevel/classes.ml
+++ b/toplevel/classes.ml
@@ -382,8 +382,8 @@ let new_instance ?(global=false) ctx (instid, bk, cl) props ?(on_free_vars=defau
     let c = Command.generalize_constr_expr tclass ctx in
     let imps, c' = interp_type_evars isevars env c in
     let ctx, c = decompose_prod_assum c' in
-    let cl, args = Typeclasses.dest_class_app c in
-      cl, ctx, imps, List.rev (Array.to_list args)
+    let cl, args = Typeclasses.dest_class_app (push_rel_context ctx env) c in
+      cl, ctx, imps, List.rev args
   in
   let id = 
     match snd instid with