diff --git a/stdlib/string.mli b/stdlib/string.mli
index 6ea6e8c5ebc9..414b39362996 100644
--- a/stdlib/string.mli
+++ b/stdlib/string.mli
@@ -139,8 +139,8 @@ val concat : string -> string list -> string
 val cat : string -> string -> string
 (** [cat s1 s2] concatenates s1 and s2 ([s1 ^ s2]).
 
-    @raise Invalid_argument if the result is longer then
-    than {!Sys.max_string_length} bytes.
+    @raise Invalid_argument if the result is longer than
+    {!Sys.max_string_length} bytes.
 
     @since 4.13.0
 *)
diff --git a/stdlib/stringLabels.mli b/stdlib/stringLabels.mli
index 438ffeb9597e..91b971ed5a93 100644
--- a/stdlib/stringLabels.mli
+++ b/stdlib/stringLabels.mli
@@ -139,8 +139,8 @@ val concat : sep:string -> string list -> string
 val cat : string -> string -> string
 (** [cat s1 s2] concatenates s1 and s2 ([s1 ^ s2]).
 
-    @raise Invalid_argument if the result is longer then
-    than {!Sys.max_string_length} bytes.
+    @raise Invalid_argument if the result is longer than
+    {!Sys.max_string_length} bytes.
 
     @since 4.13.0
 *)