diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index 66dd70014d3e974f69b5dffb140e00ab1dd1fca4..f01c024fc387bf0fb4a9b403c4497ed8389b47a2 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.15 1990/06/06 14:36:52 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.16 1990/06/11 13:57:41 ram Exp $
 ;;;
 ;;;    This file contains the virtual machine independent parts of the code
 ;;; which does the actual translation of nodes to VOPs.
@@ -315,8 +315,8 @@
 			(let ((temp (make-normal-tn to-type)))
 			  (if assertion
 			      (emit-type-check node block from temp assertion)
-			      (emit-move node block from temp)
-			      temp)))
+			      (emit-move node block from temp))
+			  temp))
 		    locs ptypes
 		    (if (< ntypes nlocs)
 			(append types (make-list (- nlocs ntypes)
@@ -1172,7 +1172,7 @@
 ;;;
 (defun ir2-convert-mv-bind (node block)
   (declare (type mv-combination node) (type ir2-block block))
-  (let* ((cont (continuation-info (first (basic-combination-args node))))
+  (let* ((cont (first (basic-combination-args node)))
 	 (fun (ref-leaf (continuation-use (basic-combination-fun node))))
 	 (vars (lambda-vars fun)))
     (assert (eq (functional-kind fun) :mv-let))