Use right number of arguments for alis.

diff --git a/regtape/grouper.pl b/regtape/grouper.pl
index 950a9d70d69590e6aeb60cad1a560f8af742e9de..097b91e814306bcae61616698fa3ffd995475748 100755 (executable)
--- a/regtape/grouper.pl
+++ b/regtape/grouper.pl
@@ -135,7 +135,7 @@ sub check_list {
     my ( $name, $owner, $export, $desc ) = @_;
     if (!$lists{$name}) {
        print LOG "Creating $name\n";
-       print MRTEST "qy alis $name 0 0 1 $export $export \"create unique GID\" 0 LIST $owner NONE NONE \"$desc\"\n";
+       print MRTEST "qy alis $name 0 0 1 $export $export \"create unique GID\" 0 0 [NONE] LIST $owner NONE NONE \"$desc\"\n";
     }
 }