1 files changed, 3 insertions, 2 deletions
diff --git a/src/main.lisp b/src/main.lisp
index 51a7cbb..2c7375e 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -56,13 +56,14 @@
 ; Part
 
 (defun part-name (key)
-  (ecase key
+  (case key
     ('intro "Intro")
     ('verse "Couplet")
     ('chorus "Refrain")
     ('interlude "Interlude")
     ('bridge "Pont")
-    ('outro "Outro")))
+    ('outro "Outro")
+    (otherwise key)))
 
 (defun part-tags (key children)
   (h "div"