diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index 47ec7fad62b091be20f439e0634ea9a267f543cf..4fc2a5189cd50786da8eeb444dab27525c7dbcf9 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.25 2003/03/30 18:43:59 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.26 2003/04/06 09:39:24 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -71,9 +71,6 @@
     (import slot-unbound "PCL")
     (kernel:%set-symbol-package slot-unbound (find-package "PCL"))))
 
-(when (find-package  "SLOT-ACCESSOR-NAME")
-  (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
-
 (when (find-package "CLOS-MOP")
   (rename-package "CLOS-MOP" "OLD-CLOS-MOP"))