diff -r 81cba3921ba5 -r 655e2d74de3a src/HOL/Tools/choice_specification.ML
--- a/src/HOL/Tools/choice_specification.ML	Sun Apr 25 15:13:33 2010 +0200
+++ b/src/HOL/Tools/choice_specification.ML	Sun Apr 25 15:52:03 2010 +0200
@@ -226,7 +226,7 @@
     in
       thy
       |> ProofContext.init
-      |> Proof.theorem_i NONE after_qed [[(HOLogic.mk_Trueprop ex_prop, [])]]
+      |> Proof.theorem NONE after_qed [[(HOLogic.mk_Trueprop ex_prop, [])]]
     end;