diff --git a/syndicate/schema-compiler.rkt b/syndicate/schema-compiler.rkt
index 5831a32..f10d221 100644
--- a/syndicate/schema-compiler.rkt
+++ b/syndicate/schema-compiler.rkt
@@ -91,7 +91,7 @@
          `(:pat:arr (list ,@(map pat-pattern pats)))]
         [(CompoundPattern-tuplePrefix fixed-pats variable-pat)
          `#,(raise-syntax-error ',name "Variable-length array cannot be used as a pattern")]
-        [(CompoundPattern-dict entries)
+        [(CompoundPattern-dict (DictionaryEntries entries))
          `(:pat:dict (hash ,@(append* (for/list [((k p) (in-hash entries))]
                                         (define s (pat-pattern p))
                                         `(',k ,s)))))]