diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 888b4fde54..7c867e0aab 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -304,7 +304,7 @@ sub GetBudgetSpent {
 	my ($budget_id) = @_;
 	my $dbh = C4::Context->dbh;
 	my $sth = $dbh->prepare(qq|
-        SELECT SUM(ecost *  quantity) AS sum FROM aqorders
+        SELECT SUM( COALESCE(unitprice, ecost) * quantity ) AS sum FROM aqorders
             WHERE budget_id = ? AND
             quantityreceived > 0 AND
             datecancellationprinted IS NULL