 		(ledger-fontify-set-face (list (match-beginning 4) (match-end 4))
 														 (cond ((eq state 'cleared)
 																		'ledger-font-posting-amount-cleared-face)
-																	 ((eq state 'cleared)
+																	 ((eq state 'pending)
 																		'ledger-font-posting-amount-pending-face)
 																	 (t
 																		'ledger-font-posting-amount-face)))

	(save-excursion
		(ledger-fontify-xact-start (car extents))
		(while (< (point) (cadr extents))
			(ledger-fontify-posting (point))
			(forward-line))))

(defun ledger-fontify-xact-start (pos)
	"POS shoul dbe at the beginning of a line starting an xact"
	(goto-char pos)
	(beginning-of-line)
	(let ((state nil))

		(goto-char position)
		(let ((extents (ledger-navigate-find-xact-extents position))
					(state (ledger-transaction-state)))
			(if (and ledger-fontify-xact-state-overrides state)
					(cond ((eq state 'cleared)
								 (ledger-fontify-set-face extents 'ledger-font-xact-cleared-face))
