diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 8446724e20e5b15758faa979627dc79f35273131..9750f89957e12ae2ecf4483c78931abab81a5d18 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.14 1992/02/21 23:24:16 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bit-bash.lisp,v 1.15 1992/02/21 23:56:04 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -137,7 +137,7 @@
 	   (optimize (speed 3) (safety 0)))
   (sap-ref-32 sap (the index (ash offset 2))))
 ;;;
-(defun %set-word-sap-ref) (sap offset value)
+(defun %set-word-sap-ref (sap offset value)
   (declare (type system-area-pointer sap)
 	   (type index offset)
 	   (type (unsigned-byte 32) value)
diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp
index f4bee519b7a12b1a892b5491ea984e45df321667..bb8a841c63c162b301f5727f2d6871ae3a865780 100644
--- a/compiler/mips/sap.lisp
+++ b/compiler/mips/sap.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/mips/sap.lisp,v 1.22 1992/02/21 23:20:56 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.23 1992/02/21 23:57:03 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -163,7 +163,7 @@
      (define-vop (,ref-name)
        (:translate ,ref-name)
        (:policy :fast-safe)
-       (:args (sap-arg :scs (sap-reg) :target sap)
+       (:args (object :scs (sap-reg) :target sap)
 	      (offset :scs (unsigned-reg negative-immediate zero immediate)))
        (:arg-types system-area-pointer unsigned-num)
        (:results (result :scs (,sc)))