diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index ccb2fc9a3c971ecb92b709fd05ef703b7d5d7109..7c4ac881fe6f3cae64ec3fafd7d91c0ba66cb3c8 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.20 2000/06/06 10:00:15 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.21 2000/06/29 07:52:06 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,11 @@
   ;; bootstrapping.
   (setf (compiler-macro-function 'make-instance) nil)
   ;;
+  ;; Blow away other compiler-macros exported from Lisp so that bootstrapping
+  ;; doesn't get confused.
+  (setf (compiler-macro-function 'slot-value) nil)
+  (setf (compiler-macro-function 'slot-boundp) nil)
+  ;;
   ;; Undefine all generic functions exported from Lisp so that bootstrapping
   ;; doesn't get confused.
   (let ((class (find-class 'generic-function nil)))