sub flagged2 {
    my $self  =shift ;
    unless(defined($self->{f})) {
        my @bs = $self->bs( flag => 1 ) ;
        $self->{f} = weaken(shift @bs) ;
    }
    return $self->{f} ;
}