diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index e49becb94c..f65745e9c1 100644
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -607,7 +607,7 @@ sub makepartialpayment {
     .  'description, accounttype, amountoutstanding, itemnumber, manager_id, note) '
     . ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?, ?)';
 
-    $dbh->do(  $insert, undef, $borrowernumber, $nextaccntno, $amount,
+    $dbh->do(  $insert, undef, $borrowernumber, $nextaccntno, -$amount,
         '', 'Pay', $data->{'itemnumber'}, $manager_id, $payment_note);
 
     UpdateStats({