X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Futilities%2Fpermissions.c;h=967b1bd2a1c314cca681dd78516084fd30921994;hb=8a92de555939887bbb784e44f4e3c901698a2dd4;hp=03458fcef01671f4ea4b263873ff89ebe86a7a2b;hpb=a27e454d1a65872d0b1147f320ba8cc42aa9275f;p=pspp

diff --git a/src/language/utilities/permissions.c b/src/language/utilities/permissions.c
index 03458fcef0..967b1bd2a1 100644
--- a/src/language/utilities/permissions.c
+++ b/src/language/utilities/permissions.c
@@ -47,6 +47,9 @@ cmd_permissions (struct lexer *lexer, struct dataset *ds UNUSED)
   if (lex_match_id (lexer, "FILE"))
     lex_match (lexer, '=');
 
+  if (!lex_force_string (lexer))
+    return CMD_FAILURE;
+
   fn = ds_xstrdup (lex_tokstr (lexer));
   lex_force_match (lexer, T_STRING);