diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 05d311008b03b1d9fd6b25c9cfbfd7e819a52565..b96f547f2e9e7cea5c8ac31b7bf3aa38cc4415b5 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -840,7 +840,7 @@ (alien-bind ((scp (interrupt-array-ref (alien-value lisp_interrupt_contexts) index) - (alien mach:sigcontext 2400) + (alien mach:sigcontext #.(c-sizeof 'mach:sigcontext)) t) (sc (mach:indirect-*sigcontext scp) mach:sigcontext