 (defun ledger-reconcile-delete ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (when (ledger-reconcile-get-buffer where)
-      (with-current-buffer (ledger-reconcile-get-buffer where)
+    (when (is-stdin (car where))
+      (with-current-buffer ledger-buf
         (goto-char (cdr where))
         (ledger-delete-current-entry))
       (let ((inhibit-read-only t))

      (let ((where (get-text-property (point) 'where))
            (face  (get-text-property (point) 'face)))
        (if (and (eq face 'bold)
                 (ledger-reconcile-get-buffer where))
            (with-current-buffer (ledger-reconcile-get-buffer where)
              (goto-char (cdr where))
              (ledger-toggle-current 'cleared))))
      (forward-line 1)))


     (use-local-map map)))

(provide 'ldg-reconcile)