diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index d07dc75df2..948d752060 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -673,7 +673,8 @@ gets all budgets
 
 # -------------------------------------------------------------------
 sub GetBudgets {
-    my ($filters,$orderby) = @_;
+    my $filters = shift;
+    my $orderby = shift || 'budget_name';
     return SearchInTable("aqbudgets",$filters, $orderby, undef,undef, undef, "wide");
 }