 	  (if ledger-fold-on-reconcile
 	      (ledger-occur-change-regex account ledger-buf))
 	  (set-buffer (get-buffer ledger-recon-buffer-name))
+	  (unless (get-buffer-window rbuf)
+	    (ledger-reconcile-open-windows buf rbuf))
 	  (ledger-reconcile-refresh))
 
 	  (progn  ;; no recon-buffer, starting from scratch.

	  (save-excursion
	    (ledger-reconcile-visit t)))))

(defun ledger-reconcile (account)
  (interactive "sAccount to reconcile: ")
  (let ((buf (current-buffer))

	    (if ledger-fold-on-reconcile
		(ledger-occur-mode account buf))
	    
	    (with-current-buffer (get-buffer-create ledger-recon-buffer-name)
	      (ledger-reconcile-open-windows buf (current-buffer))
	      (ledger-reconcile-mode)
	      (set (make-local-variable 'ledger-buf) buf)
	      (set (make-local-variable 'ledger-acct) account)
	      (ledger-do-reconcile))))))

(defvar ledger-reconcile-mode-abbrev-table)

