#!/usr/bin/perl
#use Mooix::Thing;
run sub ($) {
	my $this=shift;

	my @s = $this->super(@_);
	for (my $x=0; $x < @s; $x++) {
		if ($s[$x] eq 'field' && $s[$x+1] eq '.basemass') {
			$s[$x+1]='basemass';
		}
	}
	return @s;
}
