diff --git a/alexandria-1/tests.lisp b/alexandria-1/tests.lisp
index 5068f8597696be7eedbf7799077ad4ce72371cd7..4ddd432dcb4f0d9c6ea778806b0b5bbe555e0635 100644
--- a/alexandria-1/tests.lisp
+++ b/alexandria-1/tests.lisp
@@ -1781,14 +1781,18 @@
   t)
 
 (deftest type=.2
-    (type= 'list '(or null cons))
-  t
+    (multiple-value-bind (= ok)
+        (type= 'list '(or null cons))
+      (or (and = ok)
+          (and (not =) (not ok))))
   t)
 
 #-allegro
 (deftest type=.3
-    (type= 'null '(and symbol list))
-  t
+    (multiple-value-bind (= ok)
+        (type= 'null '(and symbol list))
+      (or (and = ok)
+          (and (not =) (not ok))))
   t)
 
 (deftest type=.4