merged

--- a/Admin/isatest/settings/cygwin-poly-e	Wed Sep 15 15:11:40 2010 +0200
+++ b/Admin/isatest/settings/cygwin-poly-e	Wed Sep 15 16:22:12 2010 +0200
@@ -24,5 +24,4 @@
 
 ISABELLE_USEDIR_OPTIONS="-M 1 -i false -d false"
 
-unset KODKODI
-#init_component "$HOME/contrib_devel/kodkodi"
+init_component "$HOME/contrib/kodkodi"

--- a/src/Pure/PIDE/document.ML	Wed Sep 15 15:11:40 2010 +0200
+++ b/src/Pure/PIDE/document.ML	Wed Sep 15 16:22:12 2010 +0200
@@ -204,10 +204,10 @@
 fun async_state tr st =
   if Toplevel.print_of tr then
     ignore
-      (Future.fork
+      (Future.fork_group (Task_Queue.new_group NONE)
         (fn () =>
           Toplevel.setmp_thread_position tr
-            (fn () => Future.status (fn () => Toplevel.print_state false st)) ()))
+            (fn () => Toplevel.print_state false st) ()))
   else ();
 
 in