1 files changed, 3 insertions, 5 deletions
diff --git a/lib/citation/render.ml b/lib/citation/render.ml
index 79aaa86..2b40ab3 100644
--- a/lib/citation/render.ml
+++ b/lib/citation/render.ml
@@ -80,13 +80,11 @@ let subst tmpl pairs =
   Buffer.contents b
 
 let render st ~names (t : Parse.t) =
+  let show_num (v : Parse.verse_num) = string_of_int v.Parse.n ^ v.Parse.suffix in
   let one_range (r : Parse.verse_range) =
     match r.Parse.last with
-    | None -> string_of_int r.Parse.first
-    | Some l ->
-        subst st.range
-          [ ("first", string_of_int r.Parse.first);
-            ("last", string_of_int l) ]
+    | None -> show_num r.Parse.first
+    | Some l -> subst st.range [ ("first", show_num r.Parse.first); ("last", show_num l) ]
   in
   let one_part (p : Parse.part) =
     let verses = String.concat st.verse_sep (List.map one_range p.Parse.verses) in