my $suppress;
{ no warnings;
  $suppress =
         ($self->{simpos} == 1) and (($typ eq 'BHC') || ($typ eq 'ISC'));
}