--- Coro/Coro.pm	2007/02/28 11:43:03	1.115
+++ Coro/Coro.pm	2007/03/19 15:50:48	1.118
@@ -52,7 +52,7 @@
 our $main;    # main coroutine
 our $current; # current coroutine
 
-our $VERSION = '3.501';
+our $VERSION = '3.55';
 
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (
@@ -244,6 +244,7 @@
       last if @pool >= $POOL_SIZE;
       push @pool, $current;
 
+      $current->save (Coro::State::SAVE_DEF);
       $current->prio (0);
       schedule;
    }