diff --git a/quad/quad2/quad.rkt b/quad/quad2/quad.rkt
index 14b3cc29..2f196a4b 100644
--- a/quad/quad2/quad.rkt
+++ b/quad/quad2/quad.rkt
@@ -25,7 +25,7 @@
 (define set-quad-tag! set-$quad-tag!)
 (define quad-attrs $quad-attrs)
 (define (quad-attrs? x) (match x
-                        [(list (cons symbol? _) ...) #true]
+                        [(list (cons (? symbol?) _) ...) #true]
                         [_ #false]))
 (define set-quad-attrs! set-$quad-attrs!)
 (define quad-elems $quad-elems)