diff --git a/modules/Bio/EnsEMBL/ArchiveStableId.pm b/modules/Bio/EnsEMBL/ArchiveStableId.pm
index b9da351f88026612ea09a3c8fd901fb219e6450e..f5f9749c137387fcc875aafbb92152fedf68d9e3 100644
--- a/modules/Bio/EnsEMBL/ArchiveStableId.pm
+++ b/modules/Bio/EnsEMBL/ArchiveStableId.pm
@@ -89,8 +89,8 @@ sub new {
 
   my $self = bless {}, $class;
 
-  my ($stable_id, $version, $db_name, $release, $assembly, $type, $adaptor) =
-    rearrange([qw( STABLE_ID VERSION DB_NAME RELEASE ASSEMBLY TYPE ADAPTOR)],
+  my ($stable_id, $version, $db_name, $release, $assembly, $type, $adaptor, $score) =
+    rearrange([qw( STABLE_ID VERSION DB_NAME RELEASE ASSEMBLY TYPE ADAPTOR SCORE)],
     @_ );
 
   $self->{'stable_id'} = $stable_id;
@@ -100,6 +100,7 @@ sub new {
   $self->{'assembly'} = $assembly;
   $self->{'type'} = $type;
   $self->{'adaptor'} = $adaptor;
+  $self->{'score'} = $score;
 
   return $self;
 }
@@ -136,7 +137,8 @@ sub new_fast {
       'release' => $_[3],
       'assembly' => $_[4],
       'type' => $_[5],
-      'adaptor' => $_[6]
+      'adaptor' => $_[6],
+      'score' => $_[7],
   }, $class;
 
   return $self;
@@ -332,6 +334,12 @@ sub type {
   return $self->{'type'};
 }
 
+sub score {
+  my $self = shift;
+  $self->{'score'} = shift if (@_);
+  return $self->{'score'};
+}
+
 sub successors {
   my $self = shift;
   $self->{'successors'} = \@_;