diff --git a/ansi-tests/subtypep.lsp b/ansi-tests/subtypep.lsp
index dc2749c83a2c1349270d2676698a0738132634a6..8cb67de8a2fbf7f8297da0fc676cb40a258006ef 100644
--- a/ansi-tests/subtypep.lsp
+++ b/ansi-tests/subtypep.lsp
@@ -118,8 +118,8 @@
 
 (deftest subtypep.and/or.1
   (check-equivalence
-   '(and (or symbol (integer 0 10))
-	 (or symbol (integer 15 25)))
+   '(and (or symbol (integer 0 15))
+	 (or symbol (integer 10 25)))
    '(or symbol (integer 10 15)))
   nil)