--- Coro/Coro/State.xs	2004/08/09 02:41:27	1.60
+++ Coro/Coro/State.xs	2004/08/10 01:56:30	1.61
@@ -272,6 +272,8 @@
   /* casting is fun. */
   while (&PL_sv_undef != (SV *)(padlist = (AV *)av_pop (av)))
     free_padlist (aTHX_ padlist);
+
+  SvREFCNT_dec (av);
 }
 
 #define PERL_MAGIC_coro PERL_MAGIC_ext