--- Coro/eg/prodcons2	2001/07/15 02:35:52	1.4
+++ Coro/eg/prodcons2	2001/07/23 02:14:19	1.5
@@ -16,7 +16,7 @@
       print "produced $i\n";
       push @buffer, $i;
       $produced->up;
-      yield if @buffer > 5; # simulate memory pressure ;)
+      cede if @buffer > 5; # simulate memory pressure ;)
    }
    print "work done\n";
    $finished->up;