--- lib/Finance/Quote/FTfunds.pm
+++ lib/Finance/Quote/FTfunds.pm
@@ -233,7 +233,7 @@
 # Find the currency
 		my $currency;
 		if ($webdoc->content =~
-		m[($code):([A-Z]{3})]  )
+		m[<th>(Price currency)</th><td>([A-Z]{3})</td>]  )
         {
 
 			$currency    = $2;