diff --git a/collects/mzlib/private/match/parse-quasi.scm b/collects/mzlib/private/match/parse-quasi.scm
index a779045a8e..2bae2443f3 100644
--- a/collects/mzlib/private/match/parse-quasi.scm
+++ b/collects/mzlib/private/match/parse-quasi.scm
@@ -72,7 +72,7 @@
                                                        "unquote-splicing not followed by list")))]
                                      [,@p
                                         (if (and (stx-list? (syntax p))
-                                                 (eq? (syntax-e (car (syntax->list #'p))) 'list))
+                                                 (memq (syntax-e (car (syntax->list #'p))) '(list list-rest)))
                                             (cdr (syntax->list (syntax p)))
                                             (begin ; (write (syntax-e (syntax p))) 
                                               (q-error (syntax ,@p)