--- ledger-2.6.2/ledger.el	2009-06-28 13:57:53.000000000 +0200
+++ ledger-2.6.2-patch/ledger.el	2010-11-29 21:44:25.000000000 +0100
@@ -480,7 +480,7 @@
 	(account ledger-acct)
 	(inhibit-read-only t)
 	cleared)
-    (when (equal (car where) "<stdin>")
+    (when (equal (car where) "/dev/stdin")
       (with-current-buffer ledger-buf
 	  (goto-char (cdr where))
 	(setq cleared (ledger-toggle-current 'pending)))
@@ -553,7 +553,7 @@
 (defun ledger-reconcile-delete ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (when (equal (car where) "<stdin>")
+    (when (equal (car where) "/dev/stdin")
       (with-current-buffer ledger-buf
 	(goto-char (cdr where))
 	(ledger-delete-current-entry))
@@ -565,7 +565,7 @@
 (defun ledger-reconcile-visit ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (when (equal (car where) "<stdin>")
+    (when (equal (car where) "/dev/stdin")
       (switch-to-buffer-other-window ledger-buf)
       (goto-char (cdr where)))))
 
@@ -588,7 +588,7 @@
       (let ((where (get-text-property (point) 'where))
 	    (face  (get-text-property (point) 'face)))
 	(if (and (eq face 'bold)
-		 (equal (car where) "<stdin>"))
+		 (equal (car where) "/dev/stdin"))
 	    (with-current-buffer ledger-buf
 	      (goto-char (cdr where))
 	      (ledger-toggle-current 'cleared))))