1 files changed, 1 insertions, 1 deletions
diff --git a/src/cell.ml b/src/cell.ml
index e6f86d1..dc5dcdc 100755
--- a/src/cell.ml
+++ b/src/cell.ml
@@ -35,7 +35,7 @@ let to_hname x = begin
       let value' = value - 1 in
       let rem = value' mod 26 in
       let quot = (value' - rem) / 26
-      in extract ((char_of_int (65 + rem))::acc) quot
+      in (extract[@tailcall]) ((char_of_int (65 + rem))::acc) quot
     ) else (
       acc
     )