diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm index b161dcfcc9..2ab32e4c15 100644 --- a/src/scm/price-quotes.scm +++ b/src/scm/price-quotes.scm @@ -433,21 +433,21 @@ (gnc-price-set-value saved-price price) (gnc-price-commit-edit saved-price) #f) - #f) - (let ((gnc-price (gnc-price-create book))) - (if (not gnc-price) - (string-append - currency-str ":" (gnc-commodity-get-mnemonic commodity)) - (begin - (gnc-price-begin-edit gnc-price) - (gnc-price-set-commodity gnc-price commodity) - (gnc-price-set-currency gnc-price currency) - (gnc-price-set-time gnc-price gnc-time) - (gnc-price-set-source gnc-price PRICE-SOURCE-FQ) - (gnc-price-set-typestr gnc-price price-type) - (gnc-price-set-value gnc-price price) - (gnc-price-commit-edit gnc-price) - gnc-price))))) + #f)) + (let ((gnc-price (gnc-price-create book))) + (if (not gnc-price) + (string-append + currency-str ":" (gnc-commodity-get-mnemonic commodity)) + (begin + (gnc-price-begin-edit gnc-price) + (gnc-price-set-commodity gnc-price commodity) + (gnc-price-set-currency gnc-price currency) + (gnc-price-set-time gnc-price gnc-time) + (gnc-price-set-source gnc-price PRICE-SOURCE-FQ) + (gnc-price-set-typestr gnc-price price-type) + (gnc-price-set-value gnc-price price) + (gnc-price-commit-edit gnc-price) + gnc-price)))) )) ))