diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el
index 63950366..126b7083 100644
--- a/lisp/ledger-reconcile.el
+++ b/lisp/ledger-reconcile.el
@@ -192,7 +192,7 @@ Return the number of uncleared xacts found."
     (when (ledger-reconcile-get-buffer where)
       (with-current-buffer (ledger-reconcile-get-buffer where)
         (ledger-goto-line (cdr where))
-        (ledger-delete-current-transaction))
+        (ledger-delete-current-transaction (point)))
       (let ((inhibit-read-only t))
         (goto-char (line-beginning-position))
         (delete-region (point) (1+ (line-end-position)))