diff --git a/code/eval.lisp b/code/eval.lisp
index 16c5a4f7cd076d09a2a5bc591c72facb24c5ae3e..b153b2931288f88e52a0c81a6f78916b2271ca38 100644
--- a/code/eval.lisp
+++ b/code/eval.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/eval.lisp,v 1.33 2001/12/13 01:04:20 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.34 2003/01/24 16:05:50 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -477,7 +477,9 @@
     (array t)
     (symbol
      (eq (info variable kind object) :constant))
-    (list (eq (car object) 'quote))))
+    (list (eq (car object) 'quote))
+    (function t)
+    (instance t)))
 
 
 ;;; Function invocation: