diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 7f4a99449cf6562c7c1a0f9ac6ce0ea64c95b771..210327ed4ca52794cc84f4a683b231ad299882db 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,6 +3,8 @@
 
 (when (find-package "PCL")
   (rename-package "PCL" "OLD-PCL"))
+(when (find-package  "SLOT-ACCESSOR-NAME")
+  (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
 
 (setf c:*suppress-values-declaration* t)
 (pushnew :setf *features*)