diff --git a/src/app-utils/guile-util.c b/src/app-utils/guile-util.c
index 7a81b22d8e..bbde0f8628 100644
--- a/src/app-utils/guile-util.c
+++ b/src/app-utils/guile-util.c
@@ -1050,7 +1050,7 @@ gnc_trans_scm_get_num_splits(SCM trans_scm)
     if (!scm_is_list(result))
         return 0;
 
-    return SCM_LENGTH(result);
+    return scm_to_int(scm_length(result));
 }