diff --git a/code/describe.lisp b/code/describe.lisp
index 6286d9579917c5d88de796a3f1af1fdd3ce28336..3b69e0a6d9407bc28f3817cffa57e43364289f7f 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.20 1992/05/07 08:52:52 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.21 1992/12/13 16:04:19 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -301,7 +301,7 @@
 ;;; guts.
 ;;;
 (defun describe-function-compiled (x kind name)
-  (let ((args (%function-header-arglist x)))
+  (let ((args (%function-arglist x)))
     (format t "~&~@(~@[~A ~]arguments:~%~)" kind)
     (cond ((not args)
 	   (format t "  There is no argument information available."))
@@ -312,10 +312,10 @@
 	   (indenting-further *standard-output* 2
 	     (write-string args)))))
 
-  (let ((name (or name (%function-header-name x))))
+  (let ((name (or name (%function-name x))))
     (desc-doc name 'function kind)
     (unless (eq kind :macro)
-      (describe-function-name name (%function-header-type x))))
+      (describe-function-name name (%function-type x))))
     
   (print-compiled-from x))
 
diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index f9aa86ef89e7654627ee6c353c61f1292683989b..5c9bccda79bf5d1773998d1fd619e99e6a955f18 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.13 1992/03/09 09:10:32 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.14 1992/12/13 16:04:28 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -143,7 +143,7 @@
 (defun print-encapsulation-info (obj str n)
   (declare (ignore n))
   (format str "#<Encapsulation-Info  Definition: ~S  Type: ~S>"
-	  (%function-header-name (encapsulation-info-definition obj))
+	  (%function-name (encapsulation-info-definition obj))
 	  (encapsulation-info-type obj)))
 
 
diff --git a/code/kernel.lisp b/code/kernel.lisp
index 16f3a08ca298b482d540592120ddd3111d0b6433..5130b273a049f57cb204b779b5a3f1c0d8eb6bf9 100644
--- a/code/kernel.lisp
+++ b/code/kernel.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.8 1992/04/21 04:23:03 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.8 1992/04/21 04:23:03 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $
 ;;;    
 (in-package "KERNEL")
 
@@ -68,17 +68,17 @@
 (defun (setf function-subtype) (type function)
   (setf (function-subtype function) type))
 
-(defun %function-header-arglist (func)
+(defun %function-arglist (func)
   "Extracts the arglist from the function header FUNC."
-  (%function-header-arglist func))
+  (%function-arglist func))
 
-(defun %function-header-name (func)
+(defun %function-name (func)
   "Extracts the name from the function header FUNC."
-  (%function-header-name func))
+  (%function-name func))
 
-(defun %function-header-type (func)
+(defun %function-type (func)
   "Extracts the type from the function header FUNC."
-  (%function-header-type func))
+  (%function-type func))
 
 (defun %closure-function (closure)
   "Extracts the function from CLOSURE."
diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp
index 20acb104a05861c8886f79ac5f2da34ab98db267..a53afd1ca38d5a16cfaec95fb6581aa5db5b00be 100644
--- a/code/tty-inspect.lisp
+++ b/code/tty-inspect.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.10 1991/05/22 15:44:08 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.11 1992/12/13 16:04:32 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -185,7 +185,7 @@
 		     (kernel:%closure-function object)
 		     object)))
     (list (format nil "Function ~s.~@[~%Argument List: ~a~]." object
-		  (kernel:%function-header-arglist object)
+		  (kernel:%function-arglist object)
 		  ;; Defined from stuff used to be here.  Someone took it out.
 		  )
 	  t)))