diff --git a/libguile/read.c b/libguile/read.c
index 616529def..136e74819 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -32,6 +32,7 @@
 #include <unictype.h>
 #include <c-strcase.h>
 #include <c-ctype.h>
+#include <alloca.h>
 
 #include "libguile/_scm.h"
 #include "libguile/bytevectors.h"