--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -40,7 +40,13 @@
 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
 #include <sys/stat.h>
 #endif
+#ifdef __MINGW32__
+#include <winsock2.h>
+#define poll WSAPoll
+#else
 #include <poll.h>
+#endif
+
 #include <errno.h>
 #include <sys/types.h>
 #include <sys/stat.h>