diff -r 64e850c3da9e -r 1035c89b4c02 src/HOL/Import/proof_kernel.ML
--- a/src/HOL/Import/proof_kernel.ML	Sat May 17 23:53:20 2008 +0200
+++ b/src/HOL/Import/proof_kernel.ML	Sun May 18 15:04:09 2008 +0200
@@ -246,7 +246,7 @@
 
 fun prth th = writeln (PrintMode.setmp [] Display.string_of_thm th)
 fun prc ct = writeln (PrintMode.setmp [] Display.string_of_cterm ct)
-fun prin t = writeln (PrintMode.setmp [] (fn () => Sign.string_of_term (the_context ()) t) ());
+fun prin t = writeln (PrintMode.setmp [] (fn () => Syntax.string_of_term_global (the_context ()) t) ());
 fun pth (HOLThm(ren,thm)) =
     let
         (*val _ = writeln "Renaming:"