diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 0837edf88c..aa75c88f3c 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -1286,6 +1286,8 @@ sub CloneBudgetHierarchy {
                 budget_period_id => $new_budget_period_id
             }
         );
+        my @borrowernumbers = GetBudgetUsers($budget->{budget_id});
+        ModBudgetUsers($new_budget_id, @borrowernumbers);
         CloneBudgetHierarchy(
             {
                 budgets              => $budgets,