diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 7b9d80c4c08920a9e569baa68638a93c839da71e..567d65064ac4bdbea689536dc2badbb71b3d1bf5 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.5 1990/03/19 17:17:44 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.6 1990/03/29 16:25:41 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -231,7 +231,9 @@
 			   :offset ,(reg-spec-offset temp)))))
 		  regs))
 	   ,@insts
-	   (lisp-return lra-tn lip-tn)))
+	   (inst addiu lip-tn lra-tn (- vm:word-bytes vm:other-pointer-type))
+	   (inst jr lip-tn)
+	   (nop)))
        (format t "~S assembled~%" ',name))))
 
 (defun arg-or-res-spec (reg)