diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 9d690d35d74b60da00599da76135e71b70322320..5a55239688e42e8a1b3652632b5a3240e6191c1e 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -672,13 +672,17 @@ work during bootstrapping.
 (defun method-function-plist (method-function)
   (gethash method-function *method-function-plist*))
 
-(defun (setf method-function-plist) (val method-function)
+(defun #+cmu (setf method-function-plist)
+       #-cmu SETF\ PCL\ METHOD-FUNCTION-PLIST
+      (val method-function)
   (setf (gethash method-function *method-function-plist*) val))
 
 (defun method-function-get (method-function key)
   (getf (method-function-plist method-function) key))
 
-(defun (setf method-function-get) (val method-function key)
+(defun #+cmu (setf method-function-get)
+       #-cmu SETF\ PCL\ METHOD-FUNCTION-GET
+      (val method-function key)
   (setf (getf  (method-function-plist method-function) key) val))