X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fthread.c;h=53ae855865c4a92f8df253136b0d9c74bae9c4e4;hb=ba9112b2f0ba10230be5bdfc75c8e082da9bfbe0;hp=08627d676ad8d26b0bfb72821f9002e0f947c11f;hpb=ea95df99da598aae2ecc3b9285ceb4e9404ca619;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 08627d6..53ae855 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -413,6 +413,7 @@ create_thread_struct(lispobj initial_function) {
     th->binding_stack_start=
         (lispobj*)((void*)th->control_stack_start+thread_control_stack_size);
     th->control_stack_end = th->binding_stack_start;
+    th->control_stack_guard_page_protected = T;
     th->alien_stack_start=
         (lispobj*)((void*)th->binding_stack_start+BINDING_STACK_SIZE);
     th->binding_stack_pointer=th->binding_stack_start;