X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Faggregate.c;h=193125087cce21539a372becbd14fd6580b3bf05;hb=b996647adb40b2b51f888c8e755d5f5f2c15cb37;hp=cb7cff064d2371e87ef9ea08ec75152d1eaf98ec;hpb=14e7292894533c5491a774a2d749386362660812;p=pspp

diff --git a/src/aggregate.c b/src/aggregate.c
index cb7cff064d..193125087c 100644
--- a/src/aggregate.c
+++ b/src/aggregate.c
@@ -169,8 +169,6 @@ cmd_aggregate (void)
   dict_set_label (agr.dict, dict_get_label (default_dict));
   dict_set_documents (agr.dict, dict_get_documents (default_dict));
   
-  lex_match_id ("AGGREGATE");
-
   /* Read most of the subcommands. */
   for (;;)
     {
@@ -326,7 +324,7 @@ create_sysfile (struct agr_proc *agr)
   struct sfm_write_info w;
   w.h = agr->out_file;
   w.dict = agr->dict;
-  w.compress = set_scompression;
+  w.compress = get_scompression();
   if (!sfm_write_dictionary (&w))
     return 0;