diff -r 5a8aeeb2e63f -r 0e1bd289c8ea src/HOL/Tools/Function/scnp_reconstruct.ML
--- a/src/HOL/Tools/Function/scnp_reconstruct.ML	Tue Oct 05 11:45:16 2010 +0200
+++ b/src/HOL/Tools/Function/scnp_reconstruct.ML	Tue Oct 05 14:19:38 2010 +0200
@@ -383,7 +383,7 @@
     val strategy = Then (Then first_round second_round) third_round
 
   in
-    TERMINATION ctxt (strategy err_cont err_cont)
+    TERMINATION ctxt autom_tac (strategy err_cont err_cont)
   end
 
 fun gen_sizechange_tac orders autom_tac ctxt err_cont =