diff --git a/ChangeLog b/ChangeLog
index 3b2aeae5dd..d449629467 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-11-17  David Hampton  <hampton@employees.org>
 
+	* src/quotes/dump-finance-quote: Add support for printing currency
+	quotes.
+
 	* most files: Update FSF street address.
 
 2005-11-16  David Hampton  <hampton@employees.org>
diff --git a/src/quotes/dump-finance-quote b/src/quotes/dump-finance-quote
index b4a622abed..e037e51d7f 100755
--- a/src/quotes/dump-finance-quote
+++ b/src/quotes/dump-finance-quote
@@ -160,12 +160,21 @@ if (@ARGV[0] eq "-v") {
 }
 
 my $exchange = shift;
-while ($#ARGV >= 0) {
-  my $stock = shift;
-  my %quotes = $q->fetch($exchange, $stock);
-  report($stock, \%quotes, $verbose);
-  if ($#ARGV >= 0) {
-    printf "=====\n\n";
+if ($exchange eq "currency") {
+  my $from = shift;
+  while ($#ARGV >= 0) {
+    my $to = shift;
+    my $result = $q->currency($from, $to);
+    printf "1 $from = $result $to\n";
+  }
+} else {
+  while ($#ARGV >= 0) {
+    my $stock = shift;
+    my %quotes = $q->fetch($exchange, $stock);
+    report($stock, \%quotes, $verbose);
+    if ($#ARGV >= 0) {
+      printf "=====\n\n";
+    }
   }
 }