1 files changed, 1 insertions, 1 deletions
diff --git a/tags.tl b/tags.tl
index 68a8527c..94c52740 100755
--- a/tags.tl
+++ b/tags.tl
@@ -140,7 +140,7 @@
                                     (cadddr elem)
                                     (cadr elem))))
                         (add (ntag fun-tag (car args)))))
-              (bind (let ((syms (flatten (cadr elem))))
+              (bind (let ((syms (flatcar (cadr elem))))
                       (each ((sym syms))
                         (add (ntag fun-tag sym)))))
               (do (let ((forms [mapcar unexpand (cdr elem)]))