From e087c6ec92ecab72f5f9a1230a7cd8e4bc0c1e55 Mon Sep 17 00:00:00 2001
From: Graham Stark <graham.stark@virtual-worlds.biz>
Date: Tue, 5 Sep 2023 14:27:05 +0100
Subject: [PATCH] Wealth closer to Wealth Tax Commission, exept fixed a HH
 level.

---
 src/OtherTaxes.jl   | 2 +-
 src/TheEqualiser.jl | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/OtherTaxes.jl b/src/OtherTaxes.jl
index 46948f8c..54024adc 100644
--- a/src/OtherTaxes.jl
+++ b/src/OtherTaxes.jl
@@ -19,7 +19,7 @@ function calculate_wealth_tax!(
     hd = get_head( hh )
     pres = household_result.bus[1].pers[ hd.pid ]
     wealth = 0.0
-    # to individual level 
+    # FIXME TODO to individual level 
     if sys.abolished > 0
         return
     end
diff --git a/src/TheEqualiser.jl b/src/TheEqualiser.jl
index b8960851..5dd5863c 100644
--- a/src/TheEqualiser.jl
+++ b/src/TheEqualiser.jl
@@ -112,6 +112,8 @@ function run( x :: T, rparams :: RunParameters{T} ) where T <: AbstractFloat
 
     if rparams.target == eq_wealth_tax
         rparams.params.wealth.rates .+= x
+        # Make the weekly equivalent rate which is what actually generates the costs.
+        weeklyise!( rparams.params.wealth )
     end
     if rparams.target == eq_corporation_tax
         rparams.params.othertaxes.implicit_wage_tax += x