diff --git a/vm.c b/vm.c
index 01727bee..9cb57c86 100644
--- a/vm.c
+++ b/vm.c
@@ -1475,6 +1475,7 @@ sexp sexp_apply (sexp ctx, sexp proc, sexp args) {
     } else if (sexp_fixnump(tmp1) && sexp_fixnump(tmp2)) {
 #if SEXP_USE_RATIOS
       _ARG1 = sexp_make_ratio(ctx, tmp1, tmp2);
+      _ARG1 = sexp_ratio_normalize(ctx, _ARG1, SEXP_FALSE);
 #else
 #if SEXP_USE_FLONUMS
       tmp1 = sexp_fixnum_to_flonum(ctx, tmp1);