diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp
index a569f1048d770e2b949242fb18ba90dccd176b86..233a0ca4038cb504239ebe01b271619634f4d772 100644
--- a/compiler/mips/sap.lisp
+++ b/compiler/mips/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.10 1990/05/11 17:50:10 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.11 1990/05/14 07:15:58 wlott Exp $
 ;;;
 ;;;    This file contains the MIPS VM definition of SAP operations.
 ;;;
@@ -241,7 +241,7 @@
   (:variant :long nil))
 
 (define-vop (sap-system-set sap-set)
-  (:translate (setf sap-ref-sap))
+  (:translate %set-sap-ref-sap)
   (:args (object :scs (sap-reg) :target sap)
 	 (offset :scs (descriptor-reg any-reg negative-immediate
 				      zero immediate))
@@ -261,7 +261,7 @@
   (:variant :long t))
 
 (define-vop (32bit-system-set sap-set)
-  (:translate (setf sap-ref-32))
+  (:translate %set-sap-ref-32)
   (:variant :long))
 
 
@@ -274,7 +274,7 @@
   (:variant :short t))
 
 (define-vop (16bit-system-set sap-set)
-  (:translate (setf sap-ref-16))
+  (:translate %set-sap-ref-16)
   (:variant :short))
 
 
@@ -287,7 +287,7 @@
   (:variant :byte t))
 
 (define-vop (8bit-system-set sap-set)
-  (:translate (setf sap-ref-8))
+  (:translate %set-sap-ref-8)
   (:variant :byte))