-$res = eval { dispell $a, gensig };
-ok(!$@, "re-dispell from wrong sig doesn't croak ($@)");
-ok(!defined($res), 're-dispell from wrong sig returns undef');
+$res = eval { dispell $a, \"blargh" };
+like($@, $inv_wiz_obj, 're-dispell from wrong wizard croaks');
+is($res, undef, 're-dispell from wrong wizard doesn\'t return anything');