$NetBSD: patch-aa,v 1.3 2007/08/30 19:15:48 joerg Exp $

--- corba/gnome/corba/guile-gnome-corba-types.c.orig	2007-08-30 18:42:50.000000000 +0000
+++ corba/gnome/corba/guile-gnome-corba-types.c
@@ -500,7 +500,7 @@ case CORBA_tk_ ## k:								\
 	GType gtype;
 
 	gtype = guile_corba_generic_typecode_to_type (tc);
-	g_message (G_STRLOC ": %ld", gtype);
+	g_message (G_STRLOC ": %lu", (unsigned long)gtype);
 
 	retval = scm_c_make_gvalue (gtype);
         scm_gvalue_primitive_set (retval, SCM_MAKINUM(*(CORBA_unsigned_long*)any->_value));