diff -r c54170ee898b -r ac7830871177 src/HOL/TPTP/mash_eval.ML
--- a/src/HOL/TPTP/mash_eval.ML	Fri May 24 11:08:25 2013 +0200
+++ b/src/HOL/TPTP/mash_eval.ML	Fri May 24 16:43:37 2013 +0200
@@ -109,7 +109,7 @@
               SOME (_, th) => th
             | NONE => error ("No fact called \"" ^ name ^ "\".")
           val goal = goal_of_thm (Proof_Context.theory_of ctxt) th
-          val (_, hyp_ts, concl_t) = ATP_Util.strip_subgoal ctxt goal 1
+          val ((_, hyp_ts, concl_t), _) = ATP_Util.strip_subgoal goal 1 ctxt
           val isar_deps = isar_dependencies_of name_tabs th
           val facts =
             facts