diff --git a/code/bit-bash.lisp b/code/bit-bash.lisp
index 4d79237d2712ba4f02cbabf8af0b7bb976992e7c..a577048c36708438d3fe29b68b2930ee744aaec5 100644
--- a/code/bit-bash.lisp
+++ b/code/bit-bash.lisp
@@ -266,7 +266,7 @@
   (declare (type index offset))
   (%raw-bits object offset))
 
-(defun (setf %raw-bits) (object offset value)
+(defun %set-raw-bits (object offset value)
   (declare (type index offset)
 	   (type unit value))
   (setf (%raw-bits object offset) value))