diff --git a/gnucash/report/reports/standard/budget-income-statement.scm b/gnucash/report/reports/standard/budget-income-statement.scm
index ca1bbc87291..87fb10e1d66 100644
--- a/gnucash/report/reports/standard/budget-income-statement.scm
+++ b/gnucash/report/reports/standard/budget-income-statement.scm
@@ -428,7 +428,11 @@
               (gnc:get-assoc-account-balances-total expense-account-balances))
 
              (net-income
-              (gnc:collector- revenue-total expense-total))
+              (gnc:collector-
+               (gnc:get-assoc-account-balances-total
+                (get-assoc-account-balances-budget
+                 budget (append revenue-accounts expense-accounts)
+                 period-start period-end gnc:budget-account-get-net))))
 
              (table-env
               (list
diff --git a/gnucash/report/reports/standard/test/test-budget.scm b/gnucash/report/reports/standard/test/test-budget.scm
index 621d1c3d5dd..ac032ba930f 100644
--- a/gnucash/report/reports/standard/test/test-budget.scm
+++ b/gnucash/report/reports/standard/test/test-budget.scm
@@ -179,7 +179,7 @@
          sxml))
 
       (test-equal "net loss for budget"
-        '("Net loss for Budget test budget" "$285.00")
+        '("Net income for Budget test budget" "$105.00")
         ((sxpath '(// table // (tr 2) // table // (tr 5) // *text*))
          sxml)))))