diff --git a/quad/quad2/main.rkt b/quad/quad2/main.rkt
index 3be726df..70d5415e 100644
--- a/quad/quad2/main.rkt
+++ b/quad/quad2/main.rkt
@@ -14,7 +14,7 @@
   #:postcondition quad?
   (match x
     [(? quad?) x]
-    [(list (? quad?) ...) (make-quad #:elems (list x))]
+    [(list (? quad?) ...) (make-quad #:elems x)]
     [_ (make-quad #:elems (list x))]))