diff --git a/tests.lisp b/tests.lisp
index 7983aa6962ed0e58d715461bd631f599e7221f3e..89bbf8122bf680926c114b70070b10ac1dc58e78 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -1143,7 +1143,8 @@
               (member v (list v.vector v.list v.string))
               (equal l.list l)
               (equalp l.vector #(1 2 3))
-              (eq 'fixnum (array-element-type l.spec-v))
+              (eql (upgraded-array-element-type 'fixnum)
+                   (array-element-type l.spec-v))
               (equalp v.vector v)
               (equal v.list '(#\a #\b #\c))
               (equal "abc" v.string))))