diff --git a/pollen/decode.rkt b/pollen/decode.rkt
index 8270f1f..ee88ed5 100644
--- a/pollen/decode.rkt
+++ b/pollen/decode.rkt
@@ -51,8 +51,8 @@
   (let loop ([x tx-in])
     (cond
       [(txexpr? x) (let-values([(tag attrs elements) (txexpr->values x)]) 
-                     (if (or (member tag excluded-tags) (for/or ([attr (in-list attrs)])
-                                                          (member attr excluded-attrs))) 
+                     (if (or (memq tag excluded-tags) (for/or ([attr (in-list attrs)])
+                                                          (memq attr excluded-attrs))) 
                          x ; because it's excluded
                          ;; we apply processing here rather than do recursive descent on the pieces
                          ;; because if we send them back through loop, certain element types are ambiguous
diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd
index 996eb3b..961a438 100644
--- a/pollen/private/ts.rktd
+++ b/pollen/private/ts.rktd
@@ -1 +1 @@
-1515438158
+1515628033