diff --git a/accounts/C/acctchrt_homeloan.gnucash-xea b/accounts/C/acctchrt_homeloan.gnucash-xea
index d3850e33e6..ed5a7afe7e 100644
--- a/accounts/C/acctchrt_homeloan.gnucash-xea
+++ b/accounts/C/acctchrt_homeloan.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Mortgage Loan
diff --git a/accounts/C/acctchrt_otherloan.gnucash-xea b/accounts/C/acctchrt_otherloan.gnucash-xea
index 60f7adbf29..50907b279b 100644
--- a/accounts/C/acctchrt_otherloan.gnucash-xea
+++ b/accounts/C/acctchrt_otherloan.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Other Loan
diff --git a/accounts/C/acctchrt_retiremt.gnucash-xea b/accounts/C/acctchrt_retiremt.gnucash-xea
index d591164816..a0dbff85bc 100644
--- a/accounts/C/acctchrt_retiremt.gnucash-xea
+++ b/accounts/C/acctchrt_retiremt.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Retirement
diff --git a/accounts/C/acctchrt_spouseretire.gnucash-xea b/accounts/C/acctchrt_spouseretire.gnucash-xea
index 8cdff464df..77cd3772cf 100644
--- a/accounts/C/acctchrt_spouseretire.gnucash-xea
+++ b/accounts/C/acctchrt_spouseretire.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Spouse Retirement
diff --git a/accounts/en_GB/acctchrt_homeloan.gnucash-xea b/accounts/en_GB/acctchrt_homeloan.gnucash-xea
index d3850e33e6..ed5a7afe7e 100644
--- a/accounts/en_GB/acctchrt_homeloan.gnucash-xea
+++ b/accounts/en_GB/acctchrt_homeloan.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Mortgage Loan
diff --git a/accounts/en_GB/acctchrt_otherloan.gnucash-xea b/accounts/en_GB/acctchrt_otherloan.gnucash-xea
index 60f7adbf29..50907b279b 100644
--- a/accounts/en_GB/acctchrt_otherloan.gnucash-xea
+++ b/accounts/en_GB/acctchrt_otherloan.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Other Loan
diff --git a/accounts/en_GB/acctchrt_retiremt.gnucash-xea b/accounts/en_GB/acctchrt_retiremt.gnucash-xea
index d591164816..a0dbff85bc 100644
--- a/accounts/en_GB/acctchrt_retiremt.gnucash-xea
+++ b/accounts/en_GB/acctchrt_retiremt.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Retirement
diff --git a/accounts/en_GB/acctchrt_spouseretire.gnucash-xea b/accounts/en_GB/acctchrt_spouseretire.gnucash-xea
index 8cdff464df..77cd3772cf 100644
--- a/accounts/en_GB/acctchrt_spouseretire.gnucash-xea
+++ b/accounts/en_GB/acctchrt_spouseretire.gnucash-xea
@@ -48,7 +48,6 @@
true
- 1972cce2e2364f95b2b0bc014502661d
Spouse Retirement
diff --git a/src/report/standard-reports/advanced-portfolio.scm b/src/report/standard-reports/advanced-portfolio.scm
index 77953ebf71..101b0f2754 100644
--- a/src/report/standard-reports/advanced-portfolio.scm
+++ b/src/report/standard-reports/advanced-portfolio.scm
@@ -438,12 +438,13 @@
)
(define (my-exchange-fn fromunits tocurrency)
- (if (and use-txn
- (gnc-commodity-equiv currency tocurrency)
+ (if (and (gnc-commodity-equiv currency tocurrency)
(gnc-commodity-equiv (gnc:gnc-monetary-commodity fromunits) commodity))
(gnc:make-gnc-monetary tocurrency
(gnc-numeric-mul (gnc:gnc-monetary-amount fromunits)
- (gnc:gnc-monetary-amount price)
+ (if use-txn
+ (gnc:gnc-monetary-amount price)
+ (gnc-price-get-value price))
currency-frac GNC-RND-ROUND))
(exchange-fn fromunits tocurrency)))