diff --git a/src/quotes/finance-quote-check.in b/src/quotes/finance-quote-check.in
index 742369d7f1..630c0c65ca 100644
--- a/src/quotes/finance-quote-check.in
+++ b/src/quotes/finance-quote-check.in
@@ -84,7 +84,7 @@ my @sources = $quoter->sources();
 foreach my $source (@sources) {
   push(@qsources, "\"$source\"");
 }
-printf "(%s)\n", join(" ", qq/@qsources/);
+printf "(%s %s)\n", $Finance::Quote::VERSION, join(" ", qq/@qsources/);
 
 ## Local Variables:
 ## mode: perl
diff --git a/src/scm/price-quotes.scm b/src/scm/price-quotes.scm
index 08f0b6f077..3991e00736 100644
--- a/src/scm/price-quotes.scm
+++ b/src/scm/price-quotes.scm
@@ -777,4 +777,6 @@ Run 'update-finance-quote' as root to install them.") "\n")))
 (define (gnc:price-quotes-install-sources)
   (let ((sources (gnc:fq-check-sources)))
     (if (list? sources)
-        (gnc:quote-source-set-fq-installed sources))))
+	(begin
+	  (gnc:msg "Found Finance::Quote version " (car sources))
+	  (gnc:quote-source-set-fq-installed (cdr sources))))))