@@ -136,12 +136,12 @@
   (cond
     [(pair? result) (cadr result)]
     [else missing]))
 
 ;; Returns a function will test if a txexpr's tag matches the given symbol.
-(define (make-tag-predicate tagsym)
-  (lambda (tx) (and (txexpr? tx) (equal? tagsym (get-tag tx)))))
+(define (make-tag-predicate . tagsyms)
+  (lambda (tx) (if (and (txexpr? tx) (member (get-tag tx) tagsyms)) #t #f)))
 
 (define (tx-strs xpr)
   (cond
     [(txexpr? xpr) (apply string-append (map tx-strs (get-elements xpr)))]
     [(string? xpr) xpr]