Fix error message

Author: cknitt

compiler/ml/typecore.ml

@@ -4675,10 +4675,10 @@ let report_error env loc ppf error =
       fprintf ppf
         "@,\
          @,\
-         It is called with @{<error>%d@} argument%s but requires%s \
+         It is called with %s@{<error>%d@} argument%s but requires \
          @{<info>%d@}."
-        args
         (if args > arity then " just" else "")
+        args
         (if args = 1 then "" else "s")
         arity;