}
sub HTML::Element::fid { shift->look_down(id => shift) }
-sub HTML::Element::fclass { shift->look_down(class => shift) }
+sub HTML::Element::fclass { shift->look_down(class => qr/\b$_[0]\b/) }
sub HTML::Element::namedlink {
my ($self, $id, $name) = @_;