diff --git a/modules/Bio/EnsEMBL/PredictionTranscript.pm b/modules/Bio/EnsEMBL/PredictionTranscript.pm
index 583296bcd7f8b198f90895a08612905f4c10a995..816aebff478cd7ebf37ec3b1f8c66a9827ea0626 100644
--- a/modules/Bio/EnsEMBL/PredictionTranscript.pm
+++ b/modules/Bio/EnsEMBL/PredictionTranscript.pm
@@ -684,5 +684,17 @@ sub _dump {
   return $res;
 }
 
+sub type {
+  my ($self, $type) = @_;
+
+  if(defined $type) {
+    $self->{'_type'} = $type;
+  }
+
+  return $self->{'_type'};
+}
+
+
+
 
 1;