diff --git a/lisp/alpha-assem.S b/lisp/alpha-assem.S
index b4e26b629bc5bd0ca5454531ae080c593959f03f..1f648ff0d5eb437f539d4f2cd67f5dfe7bf2e398 100644
--- a/lisp/alpha-assem.S
+++ b/lisp/alpha-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.5 1997/03/15 17:35:03 pw Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.6 1997/03/19 20:06:34 pw Exp $ */
 #include <machine/regdef.h>
 #include <machine/pal.h>
 
@@ -112,6 +112,9 @@ call_into_lisp_LRA:
 	ldq	s5, framesize-8*2(sp)
 	ldq	s6, framesize-8*1(sp)
 
+	/* Restore the C stack! */
+	lda	sp, framesize(sp)
+
 	ret	zero,(ra),1
 	.globl	call_into_lisp_end
 call_into_lisp_end: