diff --git a/libguile/eval.c b/libguile/eval.c
index 5c9801c5b..9fe419137 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -53,6 +53,9 @@ char *alloca ();
 #  endif
 # endif
 #endif
+#if HAVE_MALLOC_H
+#include <malloc.h> /* alloca on mingw */
+#endif
 
 #include <assert.h>
 #include "libguile/_scm.h"