1.1 --- a/src/HOL/Import/proof_kernel.ML	Fri Jul 24 22:17:32 2009 +0200
     1.2 +++ b/src/HOL/Import/proof_kernel.ML	Fri Jul 24 22:31:27 2009 +0200
     1.3 @@ -245,7 +245,8 @@
     1.4  
     1.5  fun prth th = writeln (PrintMode.setmp [] Display.string_of_thm_without_context th)
     1.6  fun prc ct = writeln (PrintMode.setmp [] Display.string_of_cterm ct)
     1.7 -fun prin t = writeln (PrintMode.setmp [] (fn () => Syntax.string_of_term_global (OldGoals.the_context ()) t) ());
     1.8 +fun prin t = writeln (PrintMode.setmp []
     1.9 +  (fn () => Syntax.string_of_term (ML_Context.the_local_context ()) t) ());
    1.10  fun pth (HOLThm(ren,thm)) =
    1.11      let
    1.12          (*val _ = writeln "Renaming:"