vm: fix ridiculous default callstack size

diff --git a/vm/factor.cpp b/vm/factor.cpp
index c38e38a5d05de2b8a48677f372b71dcd6a4df205..c33db440a0ee29e0f177a03c2adf62ab004aaa07 100755 (executable)
--- a/vm/factor.cpp
+++ b/vm/factor.cpp
@@ -95,7 +95,7 @@ void factor_vm::init_factor(vm_parameters *p)
        /* Kilobytes */
        p->datastack_size = align_page(p->datastack_size << 10);
        p->retainstack_size = align_page(p->retainstack_size << 10);
-       p->callstack_size = align_page(p->retainstack_size << 10);
+       p->callstack_size = align_page(p->callstack_size << 10);
        p->callback_size = align_page(p->callback_size << 10);
 
        /* Megabytes */