--- IO-AIO/typemap	2006/10/21 23:06:15	1.1
+++ IO-AIO/typemap	2006/10/21 23:20:29	1.2
@@ -1,15 +1,21 @@
 aio_req		T_AIO
 aio_req_ornot	T_AIO_ORNOT
+aio_group	T_AIO_GROUP
 
 INPUT
 
 T_AIO
-	$var = SvAIO_REQ ($arg);
+	$var = SvAIO_REQ ($arg, AIO_REQ_KLASS);
 	if (!$var)
-          croak (\"busy IO::AIO::CB object required\");
+          croak (\"busy " AIO_CB_KLASS " object expected\");
 
 T_AIO_ORNOT
-	$var = SvAIO_REQ ($arg);
+	$var = SvAIO_REQ ($arg, AIO_REQ_KLASS);
         if (!$var)
 	  XSRETURN_EMPTY;
 
+T_AIO_GROUP
+	$var = SvAIO_REQ ($arg, AIO_GRP_KLASS);
+	if (!$var)
+          croak (AIO_GROUP_KLASS " object expected\");
+