summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/gc.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index afa8039ab..cfdc36055 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -681,6 +681,7 @@ scm_storage_prehistory ()
GC_all_interior_pointers = 0;
GC_INIT ();
+ GC_expand_hp (SCM_DEFAULT_INIT_HEAP_SIZE_2);
/* We only need to register a displacement for those types for which the
higher bits of the type tag are used to store a pointer (that is, a