--- a/src/HOL/Import/proof_kernel.ML Fri Jul 24 20:55:56 2009 +0200
+++ b/src/HOL/Import/proof_kernel.ML Fri Jul 24 21:02:34 2009 +0200
@@ -245,7 +245,7 @@
fun prth th = writeln (PrintMode.setmp [] Display.string_of_thm_without_context th)
fun prc ct = writeln (PrintMode.setmp [] Display.string_of_cterm ct)
-fun prin t = writeln (PrintMode.setmp [] (fn () => Syntax.string_of_term_global (the_context ()) t) ());
+fun prin t = writeln (PrintMode.setmp [] (fn () => Syntax.string_of_term_global (OldGoals.the_context ()) t) ());
fun pth (HOLThm(ren,thm)) =
let
(*val _ = writeln "Renaming:"