--- EV/typemap	2009/07/14 00:09:59	1.16
+++ EV/typemap	2009/07/14 02:33:55	1.17
@@ -30,7 +30,7 @@
 
 T_LOOP
 	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
-              && (SvSTASH (SvRV ($arg)) == stash_loop)))
+              && (SvSTASH (SvRV ($arg)) == stash_loop || sv_derived_from ($arg, \"EV::Loop\"))))
           croak (\"object is not of type EV::Loop\");
 	$var = ($type)SvIVX (SvRV ($arg));