diff --git a/code/profile.lisp b/code/profile.lisp
index 7c2dc88ef85d111aa8a29d709781f402dac1f04e..78c8499c466efdb30de935caaa83ef0c514375e0 100644
--- a/code/profile.lisp
+++ b/code/profile.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/profile.lisp,v 1.30 2003/02/05 22:58:15 cracauer Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/profile.lisp,v 1.31 2003/02/09 17:25:20 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -684,7 +684,7 @@ this, the functions are listed.  If NIL, then always list the functions.")
 				     (symbol-name n)
 				     (multiple-value-bind (valid block-name)
 					 (ext:valid-function-name-p n)
-				       (declared (ignore valid))
+				       (declare (ignore valid))
 				       (if block-name
 					   block-name
 					   (princ-to-string n)))))))))