diff --git a/svnwiki-sxml.scm b/svnwiki-sxml.scm
index b783ae34..47f6a1f4 100644
--- a/svnwiki-sxml.scm
+++ b/svnwiki-sxml.scm
@@ -712,7 +712,7 @@ section-body :: block* section>*
                         ;;  will strip one : itself).  We assume keywords are
                         ;; in suffix style.
                         (let ((str (irregex-replace +rx:ivanism+
-                                                    (symbol->string id)
+                                                    (keyword->string id)
                                                     "")))
                           (if str (string->symbol str) id))))
                    ((symbol? id) id)