   If the lyrics (second) line is empty, return both lines unchanged."
   (if (null lyrics)
       (reverse (cons "\n" (reverse chords)))
-    (reverse (convert-chords chords lyrics nil))))
+    (reverse (flk-convert-chords chords lyrics nil))))
 
 (defun flk-convert-chords (chords lyrics result)
   "This function converts a line of chords and a line of lyrics into a list of strings

The lyrics under the chord are accumulated in a string."
  (cond ((or (null chords) (equal " " (car chords)))
	 ;; we're done with this chord.
	 flk-(convert-chords chords lyrics (cons (concat "]" lyrics-under-chord) result)))
	((null lyrics)
	 (flk-convert-chord (cdr chords) nil
			lyrics-under-chord

	((equal " " (car chords))
	 (if (null lyrics)
	     (flk-convert-chords (cdr chords) nil (cons " " result))
	   (flk-convert-chords (cdr chords) (cdr lyrics) (cons (car lyrics) result))))
	((flk-convert-chord chords lyrics "" (cons "[" result)))
	))

