merge

--- a/src/Pure/Isar/runtime.ML	Fri Jul 25 13:15:50 2014 +0200
+++ b/src/Pure/Isar/runtime.ML	Fri Jul 25 13:22:37 2014 +0200
@@ -166,10 +166,10 @@
 (*Proof General legacy*)
 fun thread interrupts body =
   Thread.fork
-    (((fn () => body () handle exn => if Exn.is_interrupt exn then () else reraise exn)
-        |> debugging NONE
-        |> toplevel_error
-          (fn exn => Output.urgent_message ("## INTERNAL ERROR ##\n" ^ exn_message exn))),
+    (fn () =>
+      debugging NONE body () handle exn =>
+        if Exn.is_interrupt exn then ()
+        else Output.urgent_message ("## INTERNAL ERROR ##\n" ^ exn_message exn),
       Simple_Thread.attributes interrupts);
 
 end;