diff --git a/src/machi_chain_manager1.erl b/src/machi_chain_manager1.erl
index 07fce50..b571c05 100644
--- a/src/machi_chain_manager1.erl
+++ b/src/machi_chain_manager1.erl
@@ -896,7 +896,10 @@ react_to_env_A30(Retries, P_latest, LatestUnanimousP, _ReadExtra,
         case get_flap_count(P_newprop3) of
             {_, P_newprop3_flap_count} when P_newprop3_flap_count >= FlapLimit ->
                 AllHosed = get_all_hosed(P_newprop3),
-                {P_i, S_i} = calc_projection(S3, MyName, AllHosed),
+                P_current_inner = inner_projection_or_self(P_current),
+                {P_i, S_i} = calc_projection(unused, unused,
+                                             P_current_inner,
+                                             MyName, AllHosed, [], S),
                 %% The inner projection will have a fake author, which
                 %% everyone will agree is the largest UPI member's
                 %% name.