diff --git a/code/describe.lisp b/code/describe.lisp
index 57351f119eb105b61bae94d51ef07abec1c63ff7..889a2272ebda9249a67c7a1987e9c13a874e2d58 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.24 1993/05/29 07:00:59 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.25 1993/06/23 19:32:27 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -396,7 +396,7 @@
   ;; Describe the function cell.
   (cond ((macro-function x)
 	 (describe-function (macro-function x) :macro x))
-	((special-form-p x)
+	((special-operator-p x)
 	 (desc-doc x 'function "Special form"))
 	((fboundp x)
 	 (describe-function (fdefinition x) :function x)))
diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index 75cb55628217273212590d6402cc64305842cf68..487dce2adda565b21828bd71e48c862ccc0784af 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.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/ntrace.lisp,v 1.10 1992/12/08 20:10:16 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.11 1993/06/23 19:33:02 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -141,7 +141,7 @@
       (res named-p)
       (typecase x
 	(symbol
-	 (cond ((special-form-p x)
+	 (cond ((special-operator-p x)
 		(error "Can't trace special form ~S." x))
 	       ((macro-function x))
 	       (t