diff --git a/R_lib/kin_r_library.R b/R_lib/kin_r_library.R
index 835eea080..58941a032 100644
--- a/R_lib/kin_r_library.R
+++ b/R_lib/kin_r_library.R
@@ -61,7 +61,7 @@ master_iteration_end <- function(setup, state_T, state_C) {
     iter <- setup$iter
     # print(iter)
     ## max digits for iterations
-    dgts <- as.integer(ceiling(log10(iter)))
+    dgts <- as.integer(ceiling(log10(setup$maxiter)))
     ## string format to use in sprintf
     fmt <- paste0("%0", dgts, "d")