Typeclasses_eauto strategy is now optional.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index b64aac3559..a0eb0d60e5 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -666,7 +666,7 @@ let () = define_prim4 "tac_newauto" begin fun bt dbg n lems dbs ->
 end
 
 let () = define_prim3 "tac_typeclasses_eauto" begin fun bt str n dbs ->
-  let str = to_strategy str in
+  let str = Value.to_option to_strategy str in
   let n = Value.to_option Value.to_int n in
   let dbs = Value.to_option (fun l -> Value.to_list Value.to_ident l) dbs in
   Tac2tactics.typeclasses_eauto str n dbs