--- cvsroot/Coro/Coro.pm	2007/10/05 10:55:46	1.147
+++ cvsroot/Coro/Coro.pm	2007/10/05 20:11:25	1.148
@@ -52,7 +52,7 @@
 our $main;    # main coroutine
 our $current; # current coroutine
 
-our $VERSION = '4.0';
+our $VERSION = '4.01';
 
 our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub);
 our %EXPORT_TAGS = (