diff --git a/ldb/mips-assem.s b/ldb/mips-assem.s
index ce1eb47046c4e4bbac6f13988ad4c1348c62e6a9..27f05a5f1665d354895b391caa34b833f0832bd2 100644
--- a/ldb/mips-assem.s
+++ b/ldb/mips-assem.s
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.12 1991/05/29 12:14:21 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/mips-assem.s,v 1.13 1991/06/13 10:35:54 wlott Exp $ */
 #include <machine/regdef.h>
 
 #include "lisp.h"
@@ -336,6 +336,8 @@ function_end_breakpoint_guts:
 	.word	type_ReturnPcHeader
 	beq	zero, zero, 1f
 	nop
+	move	OCFP, CSP
+	addu	CSP, 4
 	li	NARGS, 4
 	move	A1, NULLREG
 	move	A2, NULLREG
diff --git a/ldb/sparc-assem.s b/ldb/sparc-assem.s
index 335e622e73fc88164c0be32c256dcf018ddda4e2..014ccedbd2db04a5ed15375761a2c8ae964a07ea 100644
--- a/ldb/sparc-assem.s
+++ b/ldb/sparc-assem.s
@@ -269,6 +269,8 @@ _function_end_breakpoint_guts:
 	.word	type_ReturnPcHeader
 	b	1f
 	nop
+	mov	CSP, OCFP
+	add	4, CSP, CSP
 	mov	4, NARGS
 	mov	NULLREG, A1
 	mov	NULLREG, A2