--- Coro/t/00_basic.t	2007/10/03 01:48:06	1.8
+++ Coro/t/00_basic.t	2007/10/03 10:29:41	1.9
@@ -5,22 +5,22 @@
 print "ok 1\n";
 
 my $main  = new Coro::State;
-my $proc  = new Coro::State \&a;
-my $proc2 = new Coro::State \&b;
+my $proca = new Coro::State \&a;
+my $procb = new Coro::State \&b;
 
 sub a {
    $/ = 77;
    print "ok 3\n";
-   $proc->transfer ($main);
+   $proca->transfer ($main);
    print $/ == 77 ? "" : "not ", "ok 5\n";
-   $proc->transfer ($main);
+   $proca->transfer ($main);
    print "not ok 6\n";
    die;
 }
 
 sub b {
    print $/ != 55 ? "not " : "", "ok 7\n";
-   $proc2->transfer ($main);
+   $procb->transfer ($main);
    print "not ok 8\n";
    die;
 }
@@ -28,10 +28,10 @@
 $/ = 55;
 
 print "ok 2\n";
-$main->transfer ($proc);
+$main->transfer ($proca);
 print $/ != 55 ? "not " : "ok 4\n";
-$main->transfer ($proc);
+$main->transfer ($proca);
 print $/ != 55 ? "not " : "ok 6\n";
-$main->transfer ($proc2);
+$main->transfer ($procb);
 print $/ != 55 ? "not " : "ok 8\n";