1 files changed, 3 insertions, 2 deletions
diff --git a/txrtags.tl b/txrtags.tl
index 042aa993..8e13f120 100755
--- a/txrtags.tl
+++ b/txrtags.tl
@@ -191,10 +191,11 @@
                     (t :)))
                  ((word (arg) . body)
                   (caseq word
-                    ((:init :postinit :fini))
+                    ((:init :postinit :fini :postfini))
                     (t :)))
                  ((name . rest)
-                  (add (ntag slot-tag name struct-name)))
+                  (unless (keywordp name)
+                    (add (ntag slot-tag name struct-name))))
                  (name
                    (add (ntag slot-tag name struct-name struct-obj))))))))))))