--- Coro/Coro/State.xs	2008/09/24 21:20:05	1.246
+++ Coro/Coro/State.xs	2008/09/24 21:31:29	1.247
@@ -1664,7 +1664,7 @@
 {
   PerlIOCede *self = PerlIOSelf (f, PerlIOCede);
 
-  self->every = SvNV (arg);
+  self->every = SvCUR (arg) ? SvNV (arg) : 0.01;
   self->next  = nvtime () + self->every;
 
   return PerlIOBuf_pushed (aTHX_ f, mode, Nullsv, tab);