--- Coro/Coro.pm	2001/07/15 03:24:18	1.11
+++ Coro/Coro.pm	2001/07/15 15:58:16	1.12
@@ -28,7 +28,7 @@
 
 use base Exporter;
 
-$VERSION = 0.04;
+$VERSION = 0.05;
 
 @EXPORT = qw(async yield schedule);
 @EXPORT_OK = qw($current);
@@ -131,6 +131,7 @@
 my $prev;
 
 sub schedule {
+   local @_;
    # should be done using priorities :(
    ($prev, $current) = ($current, shift @ready || $idle);
    Coro::State::transfer($prev, $current);