--- Coro/Coro.pm	2007/01/05 20:00:49	1.108
+++ Coro/Coro.pm	2007/01/12 01:15:03	1.109
@@ -235,9 +235,8 @@
 
 sub pool_handler {
    while () {
-      my ($cb, @arg) = @{ delete $current->{_invoke} };
-
       eval {
+         my ($cb, @arg) = @{ delete $current->{_invoke} };
          $cb->(@arg);
       };
       warn $@ if $@;