   :type 'string
   :group 'ledger-reconcile)
 
+(defvar ledger-reconcile-sort-key "(date)"
+	"Default key for sorting reconcile buffer")
 
 (defun ledger-reconcile-get-cleared-or-pending-balance (buffer account)
   "Calculate the cleared or pending balance of the account."

		(define-key map [menu-bar ldg-recon-menu add] '("Add Entry" . ledger-reconcile-add))
		(define-key map [menu-bar ldg-recon-menu tog] '("Toggle Entry" . ledger-reconcile-toggle))
		(define-key map [menu-bar ldg-recon-menu sep3] '("--"))
		(define-key map [menu-bar ldg-recon-menu bal] '("Show Cleared Balance" . ledger-display-balance))
		(define-key map [menu-bar ldg-recon-menu tgt] '("Change Target Balance" . ledger-reconcile-change-target))
		(define-key map [menu-bar ldg-recon-menu sep4] '("--"))
		(define-key map [menu-bar ldg-recon-menu rna] '("Reconcile New Account" . ledger-reconcile))
		(define-key map [menu-bar ldg-recon-menu sep5] '("--"))
		(define-key map [menu-bar ldg-recon-menu fin] '("Finish" . ledger-reconcile-finish))
		(define-key map [menu-bar ldg-recon-menu ref] '("Refresh" . ledger-reconcile-refresh))
		(define-key map [menu-bar ldg-recon-menu sav] '("Save" . ledger-reconcile-save))

  (let ((inhibit-read-only t))
    (erase-buffer)
    (prog1
				(ledger-do-reconcile ledger-reconcile-sort-key)
      (set-buffer-modified-p t))))

(defun ledger-reconcile-refresh-after-save ()
