diff --git a/code/globals.lisp b/code/globals.lisp
index 8239c93def67ce466c78512026d3e3c48c57a39f..3d810f7a5cd639bb3a3e3effefe0044f052480f8 100644
--- a/code/globals.lisp
+++ b/code/globals.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.13 1997/08/16 10:27:06 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.14 1997/09/04 06:17:16 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -47,8 +47,7 @@
 (declaim (ftype (function * *)
 		find-keyword keyword-test assert-error
 		assert-prompt check-type-error case-body-error print-object
-		pcl::describe-object pcl::check-wrapper-validity
-		pcl::documentation))
+		pcl::describe-object pcl::check-wrapper-validity))
 
 #-clx
 (declaim (ftype (function * *)
diff --git a/code/misc.lisp b/code/misc.lisp
index c1b49c8e8b617126e30d1dfcb29024927a23b73d..0d4ab21cf44040040229634a84f2fe38c44a446b 100644
--- a/code/misc.lisp
+++ b/code/misc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.26 1997/09/03 20:27:07 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.27 1997/09/04 06:17:15 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -54,9 +54,6 @@
     (when (and name (typep name '(or symbol cons)))
       (values (info function documentation name)))))
 
-(eval-when (compile load eval)
-  (shadow 'documentation "PCL"))
-
 (defun documentation (x doc-type)
   "Returns the documentation string of Doc-Type for X, or NIL if
   none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,