diff --git a/modules/Bio/EnsEMBL/Gene.pm b/modules/Bio/EnsEMBL/Gene.pm
index 9a2dca162072b627d6feda452b6a6c58da1bb415..05d0590105440d36c69e044aad06d4e9b5d4de36 100755
--- a/modules/Bio/EnsEMBL/Gene.pm
+++ b/modules/Bio/EnsEMBL/Gene.pm
@@ -404,7 +404,7 @@ sub get_all_homologous_Genes{
   # TODO: Find a robust way of retrieving compara dba directly.
   # For now look through all DBAs
   my $compara_dba;
-  foreach my $dba( Bio::EnsEMBL::Registry->get_all_DBAdaptors ){
+  foreach my $dba( @{Bio::EnsEMBL::Registry->get_all_DBAdaptors} ){
     if( $dba->isa('Bio::EnsEMBL::Compara::DBSQL::DBAdaptor') ){
       $compara_dba = $dba;
       last;