-my $s = $h{$obj};
-is($s, 5, 'fetch magic on fieldhash doesn\'t clobber');
-is($c, 1, 'fetch magic on fieldhash');
-
-$h{$obj} = 7;
-is($c, 0, 'store magic on fieldhash');
-is($h{$obj}, 7, 'store magic on fieldhash doesn\'t clobber'); # $c == 1
-
-$res = eval { dispell %h, $w };
-ok(!$@, "dispell uvar magic on fieldhash doesn't croak ($@)");
-ok($res, 'dispell uvar magic on fieldhash is valid');
+($res) = watch { dispell %h, $wiz } { }, 'dispell uvar magic on fieldhash';
+ok $res, 'huf: dispell uvar magic on fieldhash succeeded';