 (defun ledger-reconcile-delete ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (when (equal (car where) "<stdin>")
+    (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
       (with-current-buffer ledger-buf
 	(goto-char (cdr where))
 	(ledger-delete-current-entry))

(defun ledger-reconcile-visit ()
  (interactive)
  (let ((where (get-text-property (point) 'where)))
    (when (equal (car where) "<stdin>")
      (switch-to-buffer-other-window ledger-buf)
      (goto-char (cdr where)))))


	(account ledger-acct)
	(inhibit-read-only t)
	cleared)
    (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
      (with-current-buffer ledger-buf
	  (goto-char (cdr where))
	(setq cleared (ledger-toggle-current 'pending)))
