diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index f985397e9dbe1c1f9dd722a70408cefb4da88469..694d0f04a5a11730c39b1e1fe237d501ded271e4 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.146 2003/04/19 20:52:42 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.147 2003/04/21 21:00:04 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3261,7 +3261,7 @@
 			    (%coerce-to-function ,fun)))))
     (setf (continuation-dest fun-cont) node)
     (assert-continuation-type
-     fun-cont (values-specifier-type '(values (or function symbol) &rest t)))
+     fun-cont (values-specifier-type '(values function &rest t)))
     (collect ((arg-conts))
       (let ((this-start fun-cont))
 	(dolist (arg args)