diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index df11bd7a74160058c05be4d642c5b8e4c9960b1e..0105b7c194438561fc28cd0ca551142c570d81db 100644
--- a/compiler/sparc/macros.lisp
+++ b/compiler/sparc/macros.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.17 2002/09/04 14:04:18 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.18 2002/09/05 15:19:50 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.17 2002/09/04 14:04:18 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.18 2002/09/05 15:19:50 toy Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -74,8 +74,8 @@
 		     (inst li ,temp ,offs)
 		     (inst ,',inst ,object ,base ,temp)))))
 	   `(inst ,',inst ,object ,base (- (ash ,offset ,',shift) ,lowtag))))))
-  (frob loadq ldx (* 2 word-shift))
-  (frob storeq stx (* 2 word-shift)))
+  (frob load64 ldx (* 2 word-shift))
+  (frob store64 stx (* 2 word-shift)))
 
 (defmacro load-symbol (reg symbol)
   `(inst add ,reg null-tn (static-symbol-offset ,symbol)))
diff --git a/compiler/sparc/move.lisp b/compiler/sparc/move.lisp
index deaa88849a9ea9634da7f7dae66c3e8abd0334db..24fc01571b18dc5a099de63660937f65536d1c5f 100644
--- a/compiler/sparc/move.lisp
+++ b/compiler/sparc/move.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.8 2002/09/04 14:04:19 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.9 2002/09/05 15:19:51 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.8 2002/09/04 14:04:19 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.9 2002/09/05 15:19:51 toy Exp $
 ;;;
 ;;;    This file contains the SPARC VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -374,14 +374,14 @@
   ((signed64-stack) (signed64-reg)
    (unsigned64-stack) (unsigned64-reg))
   (let ((nfp (current-nfp-tn vop)))
-    (loadq y nfp (tn-offset x))))
+    (load64 y nfp (tn-offset x))))
 
 ;; Save a 64-bit number to the stack
 (define-move-function (store-number-stack-64 5) (vop x y)
   ((signed64-reg) (signed64-stack)
    (unsigned64-reg) (unsigned64-stack))
   (let ((nfp (current-nfp-tn vop)))
-    (storeq x nfp (tn-offset y))))
+    (store64 x nfp (tn-offset y))))
 
 ;; Move a tagged integer to a raw double-word representation.
 (define-vop (move-to-64bit-word/fixnum)
@@ -630,7 +630,7 @@
       ((signed64-reg unsigned64-reg)
        (move y x))
       ((signed64-stack unsigned64-stack)
-       (storeq x fp (tn-offset y))))))
+       (store64 x fp (tn-offset y))))))
 
 (define-move-vop move-64bit-word-argument :move-argument
   (descriptor-reg signed64-reg unsigned64-reg) (signed64-reg unsigned64-reg))