building svnwiki-sxml
   /home/siiky/.local/bin/csc -host -D compiling-extension -J -s -regenerate-import-libraries -setup-mode -I /home/siiky/.cache/chicken-install/svnwiki-sxml -C -I/home/siiky/.cache/chicken-install/svnwiki-sxml -O2 -d1 svnwiki-sxml.scm -o /home/siiky/.cache/chicken-install/svnwiki-sxml/svnwiki-sxml.so

Warning: Invalid argument
  In file `svnwiki-sxml.scm:715',
  In module `svnwiki-sxml',
  In procedure `svnwiki-signature->identifier',
  In a local procedure,
  In a local procedure,
  In a local procedure,
  In procedure `loop',
  In procedure call:

    (scheme#symbol->string id)

  Argument #1 to procedure `symbol->string' has an invalid type:

    keyword

  The expected type is:

    symbol

  This is the expression:

    id

  Procedure `symbol->string' from module `scheme' has this type:

    (symbol -> string)
   /home/siiky/.local/bin/csc -regenerate-import-libraries -M -setup-mode -static -I /home/siiky/.cache/chicken-install/svnwiki-sxml -emit-link-file /home/siiky/.cache/chicken-install/svnwiki-sxml/svnwiki-sxml.link -host -D compiling-extension -c -unit svnwiki-sxml -D compiling-static-extension -C -I/home/siiky/.cache/chicken-install/svnwiki-sxml -O2 -d1 svnwiki-sxml.scm -o /home/siiky/.cache/chicken-install/svnwiki-sxml/svnwiki-sxml.static.o

Warning: Invalid argument
  In file `svnwiki-sxml.scm:715',
  In module `svnwiki-sxml',
  In procedure `svnwiki-signature->identifier',
  In a local procedure,
  In a local procedure,
  In a local procedure,
  In procedure `loop',
  In procedure call:

    (scheme#symbol->string id)

  Argument #1 to procedure `symbol->string' has an invalid type:

    keyword

  The expected type is:

    symbol

  This is the expression:

    id

  Procedure `symbol->string' from module `scheme' has this type:

    (symbol -> string)

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)