diff --git a/lisp/ledger.el b/lisp/ledger.el
index fb8fe416..a649250d 100644
--- a/lisp/ledger.el
+++ b/lisp/ledger.el
@@ -607,7 +607,7 @@ dropped."
     (toggle-read-only t)))
 
 (defun ledger-reconcile (account)
-  (interactive "sAccount to reconcile: \nP")
+  (interactive "sAccount to reconcile: ")
   (let ((buf (current-buffer))
 	(rbuf (get-buffer "*Reconcile*")))
     (if rbuf