diff --git a/ansi-tests/subtypep-member.lsp b/ansi-tests/subtypep-member.lsp
index 24ae4bc5afe58865bbb7112448c43eb0d12827b5..d143ee7a0f142c85421b3ea18ee8c9587d992752 100644
--- a/ansi-tests/subtypep-member.lsp
+++ b/ansi-tests/subtypep-member.lsp
@@ -174,3 +174,6 @@
   (check-all-not-subtypep  '(satisfies symbolp) '(member a b c d))
   nil)
 
+(deftest subtypep.member.36
+  (check-disjointness '(eql a) '(or (member b c d) (eql e)))
+  nil)