(Fcompare_strings): Require first 6 args.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/fns.c b/src/fns.c
index 97548e70f30..26443215a54 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -219,7 +219,7 @@ Symbols are also allowed; their print names are used instead.")
 }
 
 DEFUN ("compare-strings", Fcompare_strings,
-       Scompare_strings, 2, 7, 0,
+       Scompare_strings, 6, 7, 0,
   "Compare the contents of two strings, converting to multibyte if needed.\n\
 In string STR1, skip the first START1 characters and stop at END1.\n\
 In string STR2, skip the first START2 characters and stop at END2.\n\