diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index 2455073436a0eac5bb6b0f45880c13645b79aff7..abda0576a2b4a4ccb445cde4c5ed97ba6f9e97ba 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.27 2003/10/16 16:25:19 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.28 2003/10/27 16:59:31 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.27 2003/10/16 16:25:19 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.28 2003/10/27 16:59:31 toy Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -56,10 +56,10 @@
 		     (inst li ,temp ,offs)
 		     (inst ,',inst ,object ,base ,temp)))))
 	   `(inst ,',inst ,object ,base (- (ash ,offset ,',shift) ,lowtag))))))
-  (frob loadw ld word-shift)
+  (frob loadw ldn word-shift)
   #+(and sparc-v9 sparc-v8plus)
   (frob loadsw ldsw word-shift)
-  (frob storew st word-shift))
+  (frob storew stn word-shift))
 
 #+(and sparc-v9 sparc-v8plus)
 (macrolet
@@ -95,12 +95,12 @@
 			     (find-package "VM"))))
 	 `(progn
 	    (defmacro ,loader (reg symbol)
-	      `(inst ld ,reg null-tn
+	      `(inst ldn ,reg null-tn
 		     (+ (static-symbol-offset ',symbol)
 			(ash ,',offset word-shift)
 			(- other-pointer-type))))
 	    (defmacro ,storer (reg symbol)
-	      `(inst st ,reg null-tn
+	      `(inst stn ,reg null-tn
 		     (+ (static-symbol-offset ',symbol)
 			(ash ,',offset word-shift)
 			(- other-pointer-type))))))))