diff --git a/compiler/rt/mc68881.lisp b/compiler/rt/mc68881.lisp
index 5e30d33b82dfbb9203e6f4e56fb89066a1b83245..e8f93fee5b6c74c4dee03b6c1c19e9c2ac1c842a 100644
--- a/compiler/rt/mc68881.lisp
+++ b/compiler/rt/mc68881.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.8 1991/07/23 12:11:50 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.9 1991/10/03 14:31:22 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -173,7 +173,7 @@
     vm:double-float-value-slot))
 
 (define-vop (move-to-mc68881-argument)
-  (:args (x :scs (mc68881-single-reg mc68881-double-reg))
+  (:args (x :scs (mc68881-single-reg mc68881-double-reg) :target y)
 	 (nfp :scs (word-pointer-reg)
 	      :load-if (not (sc-is y mc68881-single-reg mc68881-double-reg))))
   (:results (y))