diff -Naur guile-1.8.4-orig/libguile/guile.c guile-1.8.4/libguile/guile.c
--- guile-1.8.4-orig/libguile/guile.c	2006-02-12 14:42:51.000000000 +0100
+++ guile-1.8.4/libguile/guile.c	2008-12-12 11:58:42.000000000 +0100
@@ -27,7 +27,7 @@
 #endif
 
 #ifdef __MINGW32__
-# define SCM_IMPORT 1
+//# define SCM_IMPORT 1
 #endif
 #include <libguile.h>
 
diff -Naur guile-1.8.4-orig/libguile/win32-dirent.c guile-1.8.4/libguile/win32-dirent.c
--- guile-1.8.4-orig/libguile/win32-dirent.c	2006-02-12 14:42:52.000000000 +0100
+++ guile-1.8.4/libguile/win32-dirent.c	2008-12-12 12:00:47.000000000 +0100
@@ -24,7 +24,7 @@
 #include "win32-dirent.h"
 
 DIR *
-opendir (const char * name)
+g_opendir (const char * name)
 {
   DIR *dir;
   HANDLE hnd;
@@ -58,7 +58,7 @@
 }
 
 struct dirent *
-readdir (DIR * dir)
+g_readdir (DIR * dir)
 {
   static struct dirent entry;
   WIN32_FIND_DATA *find;
@@ -81,7 +81,7 @@
 }
 
 int 
-closedir (DIR * dir)
+g_closedir (DIR * dir)
 {
   HANDLE hnd = (HANDLE) dir->fd;
   free (dir->data);
@@ -91,7 +91,7 @@
 }
 
 void 
-rewinddir (DIR * dir)
+g_rewinddir (DIR * dir)
 {
   HANDLE hnd = (HANDLE) dir->fd;
   WIN32_FIND_DATA *find = (WIN32_FIND_DATA *) dir->data;
@@ -103,11 +103,11 @@
 }
 
 void 
-seekdir (DIR * dir, off_t offset)
+g_seekdir (DIR * dir, off_t offset)
 {
   off_t n;
 
-  rewinddir (dir);
+  g_rewinddir (dir);
   for (n = 0; n < offset; n++)
     {
       if (FindNextFile ((HANDLE) dir->fd, (WIN32_FIND_DATA *) dir->data))
@@ -116,13 +116,13 @@
 }
 
 off_t 
-telldir (DIR * dir)
+g_telldir (DIR * dir)
 {
   return dir->filepos;
 }
 
 int 
-dirfd (DIR * dir)
+g_dirfd (DIR * dir)
 {
   return dir->fd;
 }
diff -Naur guile-1.8.4-orig/libguile/win32-dirent.h guile-1.8.4/libguile/win32-dirent.h
--- guile-1.8.4-orig/libguile/win32-dirent.h	2006-02-12 14:42:52.000000000 +0100
+++ guile-1.8.4/libguile/win32-dirent.h	2008-12-12 11:59:23.000000000 +0100
@@ -53,12 +53,12 @@
 
 typedef struct dirstream DIR;
 
-DIR * opendir (const char * name);
-struct dirent * readdir (DIR * dir);
-int closedir (DIR * dir);
-void rewinddir (DIR * dir);
-void seekdir (DIR * dir, off_t offset);
-off_t telldir (DIR * dir);
-int dirfd (DIR * dir);
+DIR * g_opendir (const char * name);
+struct dirent * g_readdir (DIR * dir);
+int g_closedir (DIR * dir);
+void g_rewinddir (DIR * dir);
+void g_seekdir (DIR * dir, off_t offset);
+off_t g_telldir (DIR * dir);
+int g_dirfd (DIR * dir);
 
 #endif /* SCM_WIN32_DIRENT_H */