diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 065adad51d4877d3584ccf3623b265c6759270f2..50fde09d3923a6c9eeeee67f3f4a334fa9fe31a5 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -1,6 +1,9 @@
 
 (in-package "USER")
 
+(when (find-package "PCL")
+  (rename-package "PCL" "OLD-PCL"))
+
 (setf c:*suppress-values-declaration* t)
 
 (setf (search-list "pcl:") '("target:pcl/"))