--- guile-gnome-platform-2.7.99/glib/gnome/gobject/gtype.c.orig	2006-08-10 20:13:54.000000000 -0400
+++ guile-gnome-platform-2.7.99/glib/gnome/gobject/gtype.c	2006-08-10 20:14:07.000000000 -0400
@@ -265,7 +265,7 @@
 #define FUNC_NAME s_scm_gtype_interfaces
 {
     GType gtype, *interfaces;
-    gint n_interfaces, i;
+    guint n_interfaces, i;
     SCM ret = SCM_EOL;
 
     SCM_VALIDATE_GTYPE_COPY (1, type, gtype);
--- guile-gnome-platform-2.7.99/gtk/gnome/gw/gtk-support.c.orig	2005-01-24 06:52:58.000000000 -0500
+++ guile-gnome-platform-2.7.99/gtk/gnome/gw/gtk-support.c	2006-08-10 20:23:18.000000000 -0400
@@ -423,7 +423,7 @@
 gchar*
 _gtk_selection_data_get_as_string (GtkSelectionData *data) 
 {
-    return g_strndup (data->data, data->length);
+	return g_strndup ((char *)data->data, (size_t)data->length);
 }
 
 void
--- guile-gnome-platform-2.7.99/gnome-vfs/gnome/gw/gnome-vfs-port.c.orig	2005-01-24 06:52:57.000000000 -0500
+++ guile-gnome-platform-2.7.99/gnome-vfs/gnome/gw/gnome-vfs-port.c	2006-08-10 21:06:20.000000000 -0400
@@ -219,7 +219,7 @@
 static off_t
 vport_seek (SCM port, off_t offset, int whence)
 {
-    GnomeVFSFileOffset count;
+    GnomeVFSFileSize count;
     GnomeVFSResult res;
     scm_t_port *pt = SCM_PTAB_ENTRY (port);
     GnomeVFSHandle *handle = (GnomeVFSHandle*)SCM_STREAM (port);
@@ -392,11 +392,12 @@
             }
             if (scm_i_terminating) {
                 const char *msg = "Error: could not flush gnome-vfs handle ";
+		volatile int ignore_this;
                 char buf[11];
 
-                write (2, msg, strlen (msg));
+                ignore_this = write (2, msg, strlen (msg));
                 sprintf (buf, "%p\n", handle);
-                write (2, buf, strlen (buf));
+                ignore_this = write (2, buf, strlen (buf));
 
                 count = remaining;
             } else if (scm_gc_running_p) {