--- Coro/eg/prodcons2	2001/07/03 03:52:48	1.1
+++ Coro/eg/prodcons2	2001/07/03 04:40:55	1.2
@@ -9,7 +9,7 @@
 use Coro::Process;
 use Coro::Semaphore;
 
-my $produced = new Coro::Semaphore;
+my $produced = new Coro::Semaphore 0;
 my $finished = new Coro::Semaphore 0;
 
 async {