diff --git a/src/fns.c b/src/fns.c
index dfd48a2..bb0af4a 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2584,6 +2584,7 @@ SEQUENCE may be a list, a vector, a bool-vector, or a string.  */)
   register Lisp_Object *args;
   Lisp_Object ret;
   USE_SAFE_ALLOCA;
+  sa_avail = 32 * 1024;
 
   len = Flength (sequence);
   if (CHAR_TABLE_P (sequence))