diff --git a/collects/mzlib/private/match/match-helper.ss b/collects/mzlib/private/match/match-helper.ss
index 1ec286ed98..2503d18093 100644
--- a/collects/mzlib/private/match/match-helper.ss
+++ b/collects/mzlib/private/match/match-helper.ss
@@ -127,9 +127,6 @@
              (eq? (car el) 'struct-pred)
              (member (caaddr e) (caddr el))
              (equal? (cadddr e) (cadddr el))))) l)
-     (and (eq? (car e) 'list?)
-          (or (member `(null? ,(cadr e)) l)
-              (member `(pair? ,(cadr e)) l)))
      (and (eq? (car e) 'not)
           (let* ((srch (cadr e))
                  (const-class (equal-test? srch)))