Index: CodeGen.pm
===================================================================
RCS file: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/CodeGen.pm,v
retrieving revision 1.5
diff -u -d -p -r1.5 CodeGen.pm
--- CodeGen.pm	16 Dec 2007 16:32:13 -0000	1.5
+++ CodeGen.pm	22 Dec 2007 18:24:11 -0000
@@ -517,7 +517,7 @@ sub gen_boxed_stuff {
 	add_header "#ifdef $typemacro
   /* GBoxed $classname */
   typedef $classname $classname\_ornull;
-# define Sv$classname(sv)	(gperl_get_boxed_check ((sv), $typemacro))
+# define Sv$classname(sv)	(($classname *) gperl_get_boxed_check ((sv), $typemacro))
 # define Sv$classname\_ornull(sv)	(gperl_sv_defined (sv) ? Sv$classname (sv) : NULL)
   typedef $classname $classname\_own;
   typedef $classname $classname\_copy;