--- cvsroot/Coro/Coro.pm	2001/07/15 02:36:54	1.10
+++ cvsroot/Coro/Coro.pm	2001/07/15 03:24:18	1.11
@@ -115,7 +115,9 @@
 =cut
 
 sub async(&) {
-   (new Coro $_[0])->ready;
+   my $pid = new Coro $_[0];
+   $pid->ready;
+   $pid;
 }
 
 =item schedule