diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index f40851bceb5d7c0471055130daac5c27753c88e3..062efb676ae55fb77c28e73d98a657e0b208d1bb 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -38,8 +38,12 @@
 		(t
 		 (setf (kernel:class-pcl-class class) nil)))))))
 
-  (rename-package "PCL" "OLD-PCL")
-  (make-package "PCL"))
+  ;; Shadowing-import 'pcl::class so that this symbol is the same as
+  ;; used by the compiler in ir1tran.
+  (let ((class 'pcl::class))
+    (rename-package "PCL" "OLD-PCL")
+    (make-package "PCL")
+    (shadowing-import class "PCL")))
 
 (when (find-package  "SLOT-ACCESSOR-NAME")
   (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))