Index: trunk/parsing.lisp
===================================================================
--- trunk/parsing.lisp	(revision trunk,31)
+++ trunk/parsing.lisp	(revision trunk,32)
@@ -29,5 +29,5 @@
 
 The tree may optionally be filtered by FILTER before being labeled."
-  (let ((filtered (if filter `(,filter match) `match)))
+  (let ((filtered (if filter `(funcall ,filter match) `match)))
     `(defun ,name (input)
        (if-matches input ,rule (next match)