diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 110670d6f324990b4ad8943c7298a6008f769505..d85a2fbb65b6be0cf0c3b58c019fda702a362777 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.25 2000/02/17 14:30:07 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.26 2000/02/21 22:24:50 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1524,7 +1524,8 @@
 (define-instruction move (segment dst src1)
   (:declare (type tn dst src1))
   (:printer format-3-reg ((op #b10) (op3 #b000010) (rs1 0))
-            '(:name :tab rs2 ", " rd))
+            '(:name :tab rs2 ", " rd)
+	    :print-name 'mov)
   (:attributes flushable)
   (:dependencies (reads src1) (writes dst))
   (:delay 0)
@@ -1692,6 +1693,7 @@
        (reads :psr)
        (reads :fsr))
    (reads src)
+   (reads dst)
    (writes dst))
   (:emitter
    (let ((op #b10)
@@ -1760,6 +1762,7 @@
 	  (reads :psr)
 	  (reads :fsr))
       (reads src)
+      (reads dst)
       (writes dst))
      (:emitter
       (multiple-value-bind (opf_cc2 opf_cc01)
@@ -1806,6 +1809,7 @@
    (reads :psr)
    (reads src2)
    (reads src1)
+   (reads dst)
    (writes dst))
   (:emitter
    (etypecase src2
@@ -1847,6 +1851,7 @@
      (:dependencies
       (reads src2)
       (reads src1)
+      (reads dst)
       (writes dst))
      (:emitter
       (emit-format-3-fpop2