diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp
index bfd91eabcf527fbec6cf8d15b5ac2e50363152e4..2a2e912adfdfdb727bcb82168a664cf5cfdac528 100644
--- a/compiler/fndb.lisp
+++ b/compiler/fndb.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/compiler/fndb.lisp,v 1.106 2003/02/15 18:30:41 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/fndb.lisp,v 1.107 2003/02/28 16:36:14 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -587,7 +587,7 @@
 
 (defknown tree-equal (t t &key (:test callable) (:test-not callable)) boolean
   (foldable flushable call))
-(defknown endp (t) boolean (foldable flushable movable))
+(defknown endp (list) boolean (foldable flushable movable))
 (defknown list-length (list) (or index null) (foldable flushable))
 (defknown (nth nthcdr) (index list) t (foldable flushable))
 (defknown last (list &optional index) list (foldable flushable))