diff --git a/syndicate/pattern.rkt b/syndicate/pattern.rkt
index e438dc8..65b0025 100644
--- a/syndicate/pattern.rkt
+++ b/syndicate/pattern.rkt
@@ -106,9 +106,9 @@
 (define (desc->skeleton-stx desc)
   (match desc
     [`(compound list ,pieces ...)
-     #`(list list? #,@(map desc->skeleton-stx pieces))]
-    [`(compound (,_struct-type ,_ctor ,pred ,_getters ,_setters ,_super) ,pieces ...)
-     #`(list #,pred #,@(map desc->skeleton-stx pieces))]
+     #`(list 'list #,@(map desc->skeleton-stx pieces))]
+    [`(compound (,struct-type ,_ctor ,_pred ,_getters ,_setters ,_super) ,pieces ...)
+     #`(list #,struct-type #,@(map desc->skeleton-stx pieces))]
     [`(capture ,_ ,p) (desc->skeleton-stx p)]
     [`(discard) #'#f]
     [`(atom ,_) #'#f]))