X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc-common.c;h=95b5c3b2702a0287401596fa7e4461158a13e3b0;hb=df3969ab67c07fddeffadf1ffef414074a43d9ba;hp=cc76f5c0aab7ad2a4f88ff31c3aa8cf2b9f12290;hpb=922fe0d6da0e4bdcd366f5101395670aabd14e62;p=sbcl.git

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index cc76f5c..95b5c3b 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -2514,7 +2514,7 @@ scrub_control_stack(void)
 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
     sp = (lispobj *)&sp - 1;
 #else
-    sp = current_control_stack_pointer;
+    sp = access_control_stack_pointer(th);
 #endif
  scrub:
     if ((((os_vm_address_t)sp < (hard_guard_page_address + os_vm_page_size)) &&