Test::More::is($_[0], __PACKAGE__, "base type is correct $where");
Test::More::is($_[2], 'Tag', "original type is correct $where");
$_[1] = $tid;
Test::More::is($_[0], __PACKAGE__, "base type is correct $where");
Test::More::is($_[2], 'Tag', "original type is correct $where");
$_[1] = $tid;