diff --git a/verses_with_chords.ly b/verses_with_chords.ly
index 02215b8..86c8c83 100644
--- a/verses_with_chords.ly
+++ b/verses_with_chords.ly
@@ -122,6 +122,8 @@
               newtext
               1 "\n" 2))))))
 
+#(use-modules (lily display-lily))
+
 % Kompletten Vers mit Akkorden
 #(define-markup-command (chordverse layout props stanza verse) (string-or-music? string?)
    #:properties (
@@ -132,7 +134,7 @@
     )
    "Vers mit Akkorden"
    (let ((transp (if (car transposition)
-                    (string-append "\\transpose " (note-name->string (car transposition)) " " (note-name->string (cdr transposition)))
+                    (string-append "\\transpose " (symbol->string (note-name->lily-string (car transposition))) " " (symbol->string (note-name->lily-string (cdr transposition))))
                     "")))
    (interpret-markup layout props
      (markup #:override `(baseline-skip . ,(+ intraverse-vspace songTextLineHeigth)) #:anchor-x-between #:stanza stanza