fix (its C, not Perl ;)