--- deliantra/server/lib/cf.pm	2006/12/22 06:02:29	1.96
+++ deliantra/server/lib/cf.pm	2006/12/22 06:03:20	1.97
@@ -910,7 +910,6 @@
          $cb->();
       };
       warn $@ if $@;
-      warn "cancel myself\n";#d#
       delete $self->{_coro}{$coro+0};
    };
 
@@ -921,8 +920,7 @@
    on_destroy => sub {
       my ($ns) = @_;
 
-      warn "cancel $_" for values %{ $ns->{_coro} || {} };#d#
-      $_->cancel for values %{ $ns->{_coro} || {} };
+      $_->cancel for values %{ (delete $ns->{_coro}) || {} };
    },
 );