GET DATA: Produce explicit error on invalid sheet index.

diff --git a/src/language/data-io/get-data.c b/src/language/data-io/get-data.c
index 3ae426c84aa1f3e5516e9f2f0840af6c54360d2a..ac2944caee4974197333c1467c92f9c2966ebc20 100644 (file)
--- a/src/language/data-io/get-data.c
+++ b/src/language/data-io/get-data.c
@@ -227,6 +227,11 @@ parse_spreadsheet (struct lexer *lexer)
          else if (lex_match_id (lexer, "INDEX"))
            {
              sri->sheet_index = lex_integer (lexer);
+             if (sri->sheet_index <= 0)
+               {
+                 msg (SE, _("The sheet index must be greater than or equal to 1"));
+                 goto error;
+               }
              lex_get (lexer);
            }
          else