get reduce to die for the right reason

S29-context/die.t

@@ -37,7 +37,7 @@ is($!, "Only this\n", 'die() in recursively called sub');
 is ({ try { eager map    { die }, 1,2,3 }; 42 }()), 42, "die in map";
 is ({ try { eager grep   { die }, 1,2,3 }; 42 }()), 42, "die in grep";
 is ({ try { eager sort   { die }, 1,2,3 }; 42 }()), 42, "die in sort";
-is ({ try { reduce       { die }, 1,2,3 }; 42 }()), 42, "die in reduce";
+is ({ try { reduce -> $a,$b { die }, 1,2,3 }; 42 }()), 42, "die in reduce";
 
 is ({ try { for 1,2,3 { die }; 23 }; 42 }()), 42, "die in for";
 is ({ try { if 1 { die } else { die } }; 42 }()), 42, "die in if";