diff -r 62d237cdc341 -r fa12200276bf src/Pure/Isar/proof_display.ML
--- a/src/Pure/Isar/proof_display.ML	Wed May 07 10:42:19 2014 +0200
+++ b/src/Pure/Isar/proof_display.ML	Wed May 07 11:50:30 2014 +0200
@@ -144,10 +144,10 @@
 fun print_results markup do_print ctxt ((kind, name), facts) =
   if not do_print orelse kind = "" then ()
   else if name = "" then
-    (Pretty.writeln o Pretty.mark markup)
+    (Output.urgent_message o Pretty.string_of o Pretty.mark markup)
       (Pretty.block (Pretty.keyword1 kind :: Pretty.brk 1 :: pretty_facts ctxt facts))
   else
-    (Pretty.writeln o Pretty.mark markup)
+    (Output.urgent_message o Pretty.string_of o Pretty.mark markup)
       (case facts of
         [fact] => Pretty.blk (1, [pretty_fact_name (kind, name), Pretty.fbrk,
           Proof_Context.pretty_fact ctxt fact])