AColorの紙サイズの指定法

NeXTなどからAColorにPS出力するとき 何故かすべてA4になってしまいます。 たとえば以下のフィルタを通せばA3で出力できます。

#!/usr/local/bin/perl
while(<>){
	if(! $out && ! /^%/){
		&a3;
		$out = 1;
	}
	print;
}

sub a3 {
	print <<EOF;

%%BeginFeature: *PaperSize A3
/a3 where {a3 pop} if
%%EndFeature

EOF
}