--- Coro/eg/prodcons3	2001/07/15 02:35:52	1.2
+++ Coro/eg/prodcons3	2001/07/23 02:14:19	1.3
@@ -32,7 +32,7 @@
 
 print "producer finished\n";
 
-yield while $work->size;
+cede while $work->size;
 
 print "job finished\n";