diff --git a/code/misc.lisp b/code/misc.lisp
index 32b61a8b68263c4126a9f060b9b94ea2027cbd02..335608dabc71eb3c5f6b931310d1a456c9efdde6 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.28 1998/05/01 01:02:55 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.29 2001/07/08 16:28:09 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -29,7 +29,7 @@
 (in-package "LISP")
 
 ;;; cobbled from stuff in describe.lisp.
-(defun function-doc(x)
+(defun function-doc (x)
   (let ((name
 	 (case (kernel:get-type x)
 	   (#.vm:closure-header-type
@@ -110,8 +110,9 @@
 		 (info random-documentation stuff name))))))
   string)
 
-(defvar *features* '(:common :cmu :new-compiler :cltl2 :common-lisp :ansi-cl
-			     :draft-ansi-cl :x3j13 :ieee-floating-point)
+
+(defvar *features* '(:common :cmu :new-compiler :common-lisp :ansi-cl
+			     :ieee-floating-point)
   "Holds a list of symbols that describe features provided by the
    implementation.")
 
diff --git a/pcl/pkg.lisp b/pcl/pkg.lisp
index 5617e083d25695accf3e3a21172ac645647427e0..18d092460b994fbdb266f1cf2c0d52ff23f73ae6 100644
--- a/pcl/pkg.lisp
+++ b/pcl/pkg.lisp
@@ -26,14 +26,9 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.16 1999/05/30 23:14:05 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.17 2001/07/08 16:28:08 pw Exp $")
 ;;;
 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
-;;; Note that at this time CMUCL is not in compliance with ANSI
-;;; specified use of feature names :cltl2 :x3j13 :draft-ansi-cl or :ansi-cl
-;;; since all of them are in *features*. So I'm not going to try and be
-;;; clever with hacking around all the various ancient lisp quirks. 
-;;; This file is now CMUCL specific only.
 
 (defpackage "WALKER" (:use :common-lisp)
   (:export "DEFINE-WALKER-TEMPLATE"