diff --git a/code/pred.lisp b/code/pred.lisp
index 32e643de93b212e28553c4b89ebbabdbe74ce9aa..6e640339151dbfd6bceb7dcb8619eb7398b5948b 100644
--- a/code/pred.lisp
+++ b/code/pred.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/pred.lisp,v 1.53 2000/05/14 03:58:01 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.54 2003/01/23 15:26:51 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -276,8 +276,9 @@
 				 (= (car want) (car got))))
 		  (return nil))))
 	  (or (eq (array-type-element-type type) *wild-type*)
-	      (type= (array-type-specialized-element-type type)
-		     (specifier-type (array-element-type object))))))
+	      (values
+	       (type= (array-type-specialized-element-type type)
+		      (specifier-type (array-element-type object)))))))
     (member-type
      (if (member object (member-type-members type)) t))
     (class