corrected docgen

1 files changed, 1 insertions, 1 deletions

diff --git a/argot.lisp b/argot.lisp
index eb8944d..d0dde3b 100644
--- a/argot.lisp
+++ b/argot.lisp
@@ -136,7 +136,7 @@ and it returns VAR in that case."
                  (loop :for (lhs _p _v _c _a note) :in parsed-rules
                        :when note
                        :do (format *standard-output* "~15a   ~a~%"
-                                   lhs
+                                   (rule-name-string lhs)
                                    note))
                  (princ "------------------------------------------")
                  (terpri)