diff --git a/ldb/breakpoint.c b/ldb/breakpoint.c
index 2470451c77cbe24496ded1ca26a94b3b3f9749dd..611e36e7534bae359eb5aac6b21a6909f513e383 100644
--- a/ldb/breakpoint.c
+++ b/ldb/breakpoint.c
@@ -130,7 +130,7 @@ struct sigcontext *scp;
 
     lra = codeptr->constants[REAL_LRA_SLOT];
     if (codeptr->constants[KNOWN_RETURN_P_SLOT] == NIL)
-	scp->sc_regs[LRA] = lra;
+	scp->sc_regs[CODE] = lra;
     scp->sc_pc = lra - type_OtherPointer+sizeof(lispobj);
 }