diff --git a/CairoGObject.xs b/CairoGObject.xs
index ab1c70b..23428a3 100644
--- a/CairoGObject.xs
+++ b/CairoGObject.xs
@@ -283,6 +283,7 @@ BOOT:
 	                      &surface_wrapper_class);
 	gperl_register_boxed (CAIRO_GOBJECT_TYPE_RECTANGLE, "Cairo::Rectangle",
 	                      &rectangle_wrapper_class);
+	warn ("Cairo::GObject: registering %ld (%s)\n", CAIRO_GOBJECT_TYPE_RECTANGLE_INT, g_type_name (CAIRO_GOBJECT_TYPE_RECTANGLE_INT));
 	gperl_register_boxed (CAIRO_GOBJECT_TYPE_RECTANGLE_INT, "Cairo::RectangleInt",
 	                      &rectangle_int_wrapper_class);
 	gperl_register_boxed (CAIRO_GOBJECT_TYPE_REGION, "Cairo::Region",